ukázky příkladů

Private Sub 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.P aragraphs(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
.Hidde n = 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