パワーポイント全スライドに適用

質問

パワーポイントのオートシェイプの実線を消し、その
設定をすでに作ってある他の全スライドの
全オートシェイプに一度に適用したいのですが、
どうやったらいいのでしょうか？

１つのスライド中の実線を消す方法は分かります。

回答No.2

misatoanna

オートシェイプ（貼り付けられた写真や図は除く）の線を消すだけ、でしたら。
下記を標準モジュールに貼り付けて実行します。
'
Sub Test()
　Dim sld, obj
　For Each sld In ActivePresentation.Slides
　　For Each obj In sld.Shapes
　　　Select Case obj.Type
　　　　Case Is < 10
　　　　　obj.Line.Visible = msoFalse
　　　　End Select
　　Next
　Next
End Sub

お礼

うまく行きませんでした。

回答No.1

bayu-bayu

おはようございます。

パワーポイントの「すべてのスライドに適用」という指示は、主に背景デザイン、配置について行うもので、オートシェイプなど個別の描画や文字には対応していません。