質問: PowerPoint VBAに関する質問です。 単数の図形を選択して同じ位置に貼り付ける方法は少し調べれば出てくるのですが、複数の図形を選択して同じ位置に貼り付ける方法が見つかりません。 図形の選択は1個~n個です。 これを同じ位置に貼り付けたいのです(アニメーションなどは保持したまま)。 どなたか妙案がありませんでしょうか。
回答: 質問の内容がよくわからないのですが、スライド内のすべての図形を一番最初の図形の位置に合わせます。 図形以外の画像やタイトルは移動しません。 Sub sample() Dim sl As Slide Dim fig As Shape Dim sh As Shape Set sl = ActivePresentation.Slides(1) '最初のスライド(対象スライド) For Each sh In sl.Shapes '対象スライド内のShapeを順に If sh.Type = msoAutoShape Then 'Shapeが図形なら If fig Is Nothing Then Set fig = sh '最初の図形なら位置を合わせる図形に指定 Else '2番目以降の図形なら sh.Left = fig.Left '左位置を位置を合わせる図形の左位置に設定 sh.Top = fig.Top '上位置を位置を合わせる図形の上位置に設定 'sh.Width = fig.Width '幅を位置を合わせる図形の幅に設定 'sh.Height = fig.Height '高さを位置を合わせる図形の高さに設定 End If End If Next End Sub