- Katılım
- 19 Kasım 2007
- Mesajlar
- 19
- Excel Vers. ve Dili
- 2010 Excel ve Türkçe
Kod:
Sub dede()
Dim s As Slide
Dim shp As Shape
For Each s In ActivePresentation.Slides
For Each shp In s.Shapes
If shp.HasTextFrame Then
With shp
.TextFrame.TextRange.Font.Name = "Arial"
.TextFrame.TextRange.Font.Size = 12
.TextFrame.TextRange.Font.Bold = True
With .TextFrame.TextRange
.ParagraphFormat.SpaceBefore = 0
End With
End With
End If
Next shp
Next s
End Sub
Kod:
Sub dede2()
Dim shp As Shape, sl&
For sl = 1 To ActivePresentation.Slides.Count
For Each shp In ActivePresentation.Slides(sl).Shapes
On Error Resume Next
Debug.Print shp.TextFrame.TextRange.Font.Color.RGB
shp.TextFrame.TextRange.Font.Color = vbRed
Next
Next sl
End Sub
Renkler
vbBlack 0x0 Black
vbRed 0xFF Red
vbGreen 0xFF00 Green
vbYellow 0xFFFF Yellow
vbBlue 0xFF0000 Blue
vbMagenta 0xFF00FF Magenta
vbCyan 0xFFFF00 Cyan
vbWhite 0xFFFFFF White