受講生の声

エクセルマクロVBA外部連携講座を受講された方の成果報告です

すごく便利だったので報告させていただきます

匿名希望

Set ppPrt = ppApp.Presentations.Open(Filename:=path)
For Each ppSld In ppPrt.Slides
For Each ppShape In ppSld.Shapes
With ppShape.TextFrame.TextRange.Characters.Font
C = .Size
.Size = c - 2
EndWith
Next
Next

これはすごく便利だったので報告させていただきます。ありがとうございました。
Set ppPrt = ppApp.Presentations.Open(Filename:=path)
For Each ppSld In ppPrt.Slides
For Each ppShape In ppSld.Shapes
With ppShape.TextFrame.TextRange.Characters.Font
C = .Size
.Size = c - 2
EndWith
Next
Next

これはすごく便利だったので報告させていただきます。ありがとうございました。

トップへ