パワーポイントで全てのテキストを一括選択し、文字色を黒に変更する

パワーポイントで全てのテキストを一括選択するためのVBAマクロ

Sub SelectAllText()
Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange

For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set txtRng = shp.TextFrame.TextRange
txtRng.Select
End If
Next shp
Next sld
End Sub

パワーポイントで全てのテキストを一括選択し、文字色を黒に変更するVBAマクロ

Sub ChangeTextColorToBlack()
Dim sld As Slide
Dim shp As Shape
Dim txtRng As TextRange

For Each sld In ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set txtRng = shp.TextFrame.TextRange
txtRng.Font.Color.RGB = RGB(0, 0, 0)
End If
Next shp
Next sld
End Sub