PPT オブジェクトを非表示にする

ず～っとパソコン見てると疲れますよね～

pptで作った質疑書があって、

質疑回答をモデルに反映しました！ってことを残したいなぁって思って、

大きな「済」のマークをpptに付けて行けば、
画面上でどこに「済」マークがあるか探さないですぐにわかるからいいかも…

でも大きな「済」マークなんてあったらジャマ…

あ、非表示にすればいいのか！

ってことで、やってみました、VBAで。



PPTのイメージはこんな感じです ↓

「済」マークには「済マーク」という名前を付けています。

例えば、マクロで「済マークを非表示」を実行すると、一括でマークが消えます。　↓

「済マークを表示」を実行すると、マークが表示されます。　↓

「済マークを削除」を実行すると、マークが削除されます。↓

動画だとこんな感じです。　↓

一応、VBAの中身はこれです。

（たぶんこれで同じようにできると思いますが、初心者なのであくまで参考です‥）

-----

Sub 済マークを非表示()

Dim sld As Slide, shp As Shape

For Each sld In ActivePresentation.Slides

For Each shp In sld.Shapes

If shp.Name = “済マーク”  Then shp.Visible = False

Next

Next

End Sub

Sub 済マークを表示()

Dim sld As Slide, shp As Shape

For Each sld In ActivePresentation.Slides

For Each shp In sld.Shapes

If shp.Name = “済マーク”  Then shp.Visible = True

Next

Next

End Sub

Sub 済マークを削除()

Dim sld As Slide, shp As Shape

For Each sld In ActivePresentation.Slides

For Each shp In sld.Shapes

If shp.Name = “済マーク”  Then shp.Delete

Next

Next

End Sub

-----

非表示の状態でスライドを複製とかしないように

注意が必要ですが、

大きいマークなら目の疲れが軽減するかも？👀

y-ito