パワポで文字を次々にぺろっとはがすように表示したい

質問

例えば，スライドにいくつかスポーツの名前を書いて「オートシェイプの楕円」などで隠しておき，聴衆に向かって「オリンピック競技と言われて思い付くスポーツは何ですか？」と問い，会場からの答えを聞いて，そのスポーツが含まれていればそのオートシェイプををクリックしてスポーツ名が表示されるようにするにはどうすればいいですか？

「クイズ100人に聞きました」のようなイメージを考えています。

回答No.1

misatoanna · ベストアンサー

スポーツの名前を隠すためのオートシェイプを１つ作成し、そのオブジェクトの
動作設定で、"マウスのクリック" タブから次のマクロを実行するようにします。

Sub Mekuri(shp As Shape)
　shp.Visible = False
End Sub

このオートシェイプをコピーして各スポーツの名前を隠し、スライドショーを
実行してめくりたいオートシェイプをクリックします。

スライドショー終了後にオートシェイプを再表示したい場合は、そのページを
表示して、次のマクロを実行します。

Sub Kakushi()
　Dim shp
　For Each shp In ActiveWindow.View.Slide.Shapes
　　shp.Visible = True
　Next
End Sub

お礼

これこれ。
まさにこういうのをやりたかったのです。ありがとうございました。

できることなら500点ぐらい差し上げたいです。