Příklady - Halbich

obsah_Change()

End Sub

Private Sub OK_Click()
r = Val(polomer.Text)
h = Val(vyska.Text)
pi = 3.14
v = pi * (r ^ 2) * h
objem.Text = Str$(v)
Rem Výstup hodnot R,H,V a V převedené na vlastnost do okamžitého okna
Rem používaného pro ladění
Debug.Print r, h
Debug.Print v, objem.Text
End Sub

Private Sub polomer_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub vyska_Change()

End Sub


Sub písmena()
'
' písmena Makro
' Makro zaznamenáno 07.02.00, zaznamenal Štěpánová
'
With Selection.Paragraphs(1).DropCap
.Position = wdDropNormal
.FontName = "Times New Roman CE"
.LinesToDrop = 2
.DistanceFromText = CentimetersToPoints(0)
End With
With Selection.Font
.Name = "Times New Roman CE"
.Size = 41
.Bold = True
.Italic = False
.Underline = wdUnderlineNone
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.ColorIndex = wdPink
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = -3
.Kerning = 0
.Animation = wdAnimationNone
End With
End Sub

Sub prehodit()
'
' prehodit Makro
' Makro zaznamenáno 07.02.00, zaznamenal Štěpánová
'
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.Paste
End Sub


Public Function Fce() As Integer
Dim intPole() As Integer
Rem Začátek těla funkce
ReDim intPole(9, 3)
Debug.Print "Kontrolní tisk intPole s přičtenou hodnotou K"
K = 0
4 For L = 0 To 3
Debug.Print intPole(K, L) + K
Next L
K = K + 1
Debug.Print
If K > 9 Then GoTo 5 Else GoTo 4
5 ReDim intPole(0)
Debug.Print intPole(0)
End Function





Public Function Fce2() As Integer
Dim intPole() As Integer
Rem Začátek těla funkce
ReDim intPole(9, 3)
Debug.Print "Kontrolní tisk intPole s přičtenou hodnotou K"
For K = 0 To 9
For L = 0 To 3
Debug.Print intPole(K, L) + K
Next L
Debug.Print
Next K
ReDim intPole(0)
Debug.Print intPole(0)
End Function

Function Test(TestHod As Integer)
Test = IIf(TestHod > 100, "hodně", "málo")
End Function



Sub VV()
Dim X As String, Y As Integer
Y = InputBox("Zadej hodnotu Y v rozmezí 90 - 300")
X = Test(Y)
MsgBox X
End Sub




Méďa s textem



Méďa ze Špicberk








tak toto je text usazený do druhé buńky prvního /a zároveń jediného/ řádku tabulky
v první buńce je ten obrázek mezera mezi buńkami je 10, viz cellspacing, mezera
od okraje buńky je 20 odstraníme-li border=1, pak to bude bez rámu
všimnęte si src="meda.jpg", takto to lze zapsat, když je ten soubor s obrázkem ve stejném
adresáři jako náš medastextem.html









Méďa


Méďa ze Špicberk




vložený obrázek jen s minimálním textem,
všimnęte si pozice doprovodného textu pokud chceme text vedle
vpravo, musíme použít buď rámečky, nebo dnes spíš tabulku
viz soubor medastextem.html






Nadpisy


Toto je hlavní nadpis - první úroveń
úrovnę jsou rozlišeny pomocí značek nadpisű h1, h2, h3,
viz strunadpisy.txt
....
Nyní druhá úroveń
....
Další nadpis druhé úrovnę
....

....
Druhá úroveń
normální text, standardnę velikosti h4

Nadpis třetí úrovnę
....






Stránka s externím stylopisem



Hlavní nadpis
Nadpis druhé úrovně
Odstavec s normálním textem
Další nadpis druhé úrovně
Odstavec s dalším textem, který by se měl formátovat normálně.



Externě stylovaná stránka .... ATD.

styl.css
p text-indent: 30px; margin: 0px 0px 0px 0px,
a text-decoration: none
a:link color: green
a:visited color: navy
a:active color: black
a:hover color: red; text-decoration: underline
h2 color: blue; font-style: italic
h1 color: green; align: center