パワーポイントのマクロでテーマスタイルと標準スタイル確認

2023年9月13日

elve

↓これをpowerpointでやりたい！！！
artfulplace.hatenablog.com

要するにテーマスタイルと標準スタイル（？）を並べたい！！

定数で指定してるのにエラーになるのかよ！！

MsoShapeStyleIndex 列挙（？）はSingleで指定しないとエラーになるよ
MsoShapeStyleIndex 列挙 (Office) | Microsoft Learn

線は10001～10042まで行けた（定義不明）

結果

透過効果がわかるように背景に色つけてます
スライドはA3のサイズ指定

コード

vba

Sub 四角のサンプル()
Dim sld As Slide, shp As Shape
Dim l As Single, t As Single, w As Single, h As Single
Set sld = ActivePresentation.Slides(1)
w = 10 * 8
h = 3 * 8
Dim i As Single
For i = 1 To 77
Set shp = sld.Shapes.AddShape(msoShapeRectangle, l, t, w, h)
shp.ShapeStyle = i
shp.TextFrame.TextRange.Text = "テスト" & vbCrLf & "テスト"
shp.TextFrame.TextRange.Font.Size = 8
t = t + h
If i Mod 7 = 0 Then
l = l + w
t = 0
End If
Next
End Sub
Sub 線のサンプル()
Dim sld As Slide, shp As Shape
Dim l As Single, t As Single, w As Single, h As Single
Set sld = ActivePresentation.Slides(1)
w = 10 * 8
t = 3 * 8 * 10
Dim i As Single
For i = 1 To 42
Set shp = sld.Shapes.AddLine(l, t, l + w, t)
shp.ShapeStyle = i + 10000
t = t + 10
If i Mod 7 = 0 Then
l = l + w
t = 3 * 8 * 10
End If
Next
End Sub