pp3�

^ln|xj

_ I? X

I Microsoft Visual Basic - album fotograficzny.pptx [break] - [Modulel (Codę)]

^ File Edit View Insert Format Debug Run Tools Add-Ins Window Help

i OH ^v lU I & ^ C& lift I *9 O¹ I ► Jj 19 I %£ ta? ^ I ® Ln 8, Col 1

Project - VBAProject

(General)

Makrol

□ VBAProject (album fot<

Modules **£ Modulel

Sub Makro1()

¹ makro zaznacza tekst pola, zwiększa jego czcionki i zmieni

Act i ve DJ indów.Selection.SlideRange.Shapes("Rectangle 1") . Act iveDJindow. Select ion. ShapeRange.TextFrame.TextRange.Se Act i ve DJ indów.Selection.ShapeRange.TextFrame.TextRange.Ch |    ActiyeWindow.Selection.TextRange.Font.Size =|abcj

ActiveWindów.Selection.TextRange.Font.Color.RGB = RGB(Re ActivePresentation.ExtraColors.Add RGB(Red:=255, Green:= ActiveWindów.Selection.Unselect

End Sub

Sub Makro2()

ActiveWindow.Selection.SIideRange.Shapes("Rectangle 2") . ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Se Act iveDJindow. Select ion. ShapeRange.TextFrame.TextRange.Ch ActiveWindów.Selection.TextRange.Font.Size = 48 ActiveWindów.Selection.TextRange.Font.Color.RGB = RGB(Re ActivePresentation.ExtraColors.Add RGB(Red:=255, Green:= ActiveUindów.Selection.Unselect

End Sub

Sub Makro kolejne()

ii

±1