No.2ベストアンサー
- 回答日時:
mougでも同じような回答をしましたが...
●一般機能の場合
1.
10個の画像すべて選択
→アニメーションの設定
→効果の追加
→終了
→クリア など
2.
下の白くて長い長方形に新しくできた
10個のアニメーション項目のうち
まずは最初の画像1の項目をクリック
→右端の▼クリック
→タイミング
→開始のタイミング▼▼クリック
→次のオブジェクトをクリック時に効果を開始 にチェック
→その右から 画像1▼を選択
3.
上の2.を画像2,画像3,..画像10まで繰り返す
●マクロ利用の場合
10個の画像を選択して以下のどちらかのマクロで
[最初のコードはパッと消える、2番目のコードはワイプで消える]
Sub Anim_ExitAppear()
Dim Sld As Slide
Dim Shp As Shape
Set Sld = ActiveWindow.Selection.SlideRange(1)
For Each Shp In ActiveWindow.Selection.ShapeRange
With Sld.TimeLine.InteractiveSequences.Add.AddEffect( _
Shape:=Shp, _
effectId:=msoAnimEffectAppear, _
Trigger:=msoAnimTriggerOnShapeClick)
.Timing.TriggerShape = Shp
.Exit = msoTrue
End With
Next
End Sub
Sub Anim_ExitWipe()
Dim Sld As Slide
Dim Shp As Shape
Set Sld = ActiveWindow.Selection.SlideRange(1)
For Each Shp In ActiveWindow.Selection.ShapeRange
With Sld.TimeLine.InteractiveSequences.Add.AddEffect( _
Shape:=Shp, _
effectId:=msoAnimEffectWipe, _
Trigger:=msoAnimTriggerOnShapeClick)
.Timing.TriggerShape = Shp
.Exit = msoTrue
.EffectParameters.Direction = msoAnimDirectionLeft
End With
Next
End Sub
PPTでの設定方法、マクロと合わせてご回答いただき感謝いたします。
やりたいことなどがはっきりしてくると、益々面白くなると実感しているところです。
お忙しい所ご回答いただき、本当にありがとうございました。
No.1
- 回答日時:
[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される画面に、
以下をコピペして閉じます。
Sub InVis(Shp As Shape)
Shp.Visible = False
End Sub
Sub MacroSet()
With ActiveWindow.Selection.ShapeRange.ActionSettings(ppMouseClick)
.Run = "InVis"
.Action = ppActionRunMacro
End With
End Sub
クリックで非表示にしたい図形を一括選択し、[ツール]-[マクロ]-[マクロ]
から MacroSet を選択して実行します。
以上です。スライドショーを実行して図形をクリックしてみてください。
通常の編集画面で次のマクロを実行すると、スライドショーで非表示にした
図形を一括して再表示します。
Sub Vis()
Dim shp
For Each shp In ActiveWindow.Selection.SlideRange.Shapes
shp.Visible = True
Next
End Sub
お忙しいところご回答いただきありがとうございます。
マクロも奥が深く難しいですが、やりたいことがあるととても面白いです。
これからも勉強して以降と思います。
ありがとうございました!!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
小学生向け笑える話、面白い話...
-
原点にして頂点と言ったのはだ...
-
この元ネタが分かる方いませんか?
-
私は顔はブスだけど声は可愛い...
-
男でストッキングを履くのが好...
-
タイトルが三文字以内のアニメ
-
BLギャグアニメ ヤリチン☆ビッ...
-
ドラゴンボールGTの最後のナレ...
-
「こと」の使い方。
-
ドラゴンボール悟空「きもちわ...
-
私は男ですが車に興味がないの...
-
語尾に~なのら、というアニメ...
-
自衛隊用語「状況開始」を最初...
-
可憐な人、とはどんな人ですか...
-
結局、グゥの正体はなんだったのか
-
セフレが生理でも会いたいって...
-
3歳向けの怖い話
-
仕事もダメ。結婚もダメ。お金...
-
Power Pointで1クリックでひと...
-
ガリバーボーイは何故ビデオテ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
小学生向け笑える話、面白い話...
-
原点にして頂点と言ったのはだ...
-
この元ネタが分かる方いませんか?
-
結局、グゥの正体はなんだったのか
-
「こと」の使い方。
-
語尾に~なのら、というアニメ...
-
Power Pointで1クリックでひと...
-
ヒロアカの麗日お茶子ちゃんっ...
-
gif画像をエクセルのシートに貼...
-
ドラゴンボールGTの最後のナレ...
-
男でストッキングを履くのが好...
-
カートゥンネットワークって終...
-
もじもじ君のテーマソングの曲名
-
チー牛ってなんで性格が悪い奴...
-
鉢屋と云う姓
-
自衛隊用語「状況開始」を最初...
-
自衛隊の通信、「○○○、オクレ。...
-
パワーポイント「スライドショ...
-
クレヨンしんちゃん 呪いのフ...
-
私の言った事を、あたかも自分...
おすすめ情報