PowerPoint (全般)

PowerPoint 全般に関する話題を扱うフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : PowerPoint 2016)
図形を表示・非表示に切り替えるマクロを作成
投稿日時: 17/08/22 19:23:54
投稿者: YD

パワーポイントのシート上にコマンドボタンを一つ・図形を3つ配置しています。
コマンドボタンをクリックすると、対象の3つの図形を表示・非表示に切り替えるマクロを作成したいのですが
上手く動きません。
※パワーポイントを起動した時点では、コマンドボタンのみ表示された状態。
  コマンドボタンをクリックすると、対象の3つの図形を表示。
ご指導をよろしくお願いします。

回答
投稿日時: 17/08/23 06:08:27
投稿者: んなっと

コマンドボタンやVBAは使わず、アニメーションの設定だけで実現する方法です。
四角形Aと円Bを挿入、四角形Aをクリックするたび円Bが消えたり現れたりする例。
 
 
1.円B選択
→アニメーションの設定
→終了→クリア
→新しくできたクリア[★]アニメーション項目選択
→右端に出る▼クリック
→タイミング
→開始のタイミング▼▼
→次のオブジェクトをクリック時に効果を開始:
 四角形A▼ を選択
 ※これで四角形Aをクリックすると
 円Bが消えます。
 
 
2.円Bを選択した状態のまま
→効果の追加
→開始→アピール
→新しくできたアピール[★]アニメーション項目選択
→右端に出る▼クリック
→タイミング
→開始のタイミング▼▼
→次のオブジェクトをクリック時に効果を開始:
 四角形A▼ を選択
 ※これで四角形Aをクリックすると
 円Bが現れます。

回答
投稿日時: 17/08/23 10:15:49
投稿者: んなっと

で、CommandButton1をクリックするたび同じスライド上のOval 5の
表示・非表示を切り替えるときは...
CommandButton1をダブルクリックして以下のコード。
 
Private Sub CommandButton1_Click()
  With Me.Shapes("Oval 5")
    .Visible = Not .Visible
  End With
End Sub

回答
投稿日時: 17/08/23 12:13:00
投稿者: んなっと

さらに Oval 5, Oval 6, Oval 7 を3つまとめて切り替えたいときは
 
Private Sub CommandButton1_Click()
  With Me.Shapes.Range(Array("Oval 5", "Oval 6", "Oval 7"))
    .Visible = Not .Visible
  End With
End Sub

投稿日時: 17/08/23 17:43:25
投稿者: YD

んなっとさん、回答をありがとうございます。実現したい動作ができました。
もう一つアドバイスをください。
パワーポイントを起動した時に、対象の画像を非表示の状態にしたいのですが、どうしたらいいですか?

回答
投稿日時: 17/08/23 17:51:45
投稿者: んなっと

 スライドショー実行
→CommandButton1を1回クリックして対象図形を非表示にした状態で
→スライドショー終了
→保存

投稿日時: 17/08/23 17:52:47
投稿者: YD

ありがとうございます。