パワーポイントVBAでグラフのサイズ・位置を統一

Question

パワーポイントVBAに貼付けた複数のグラフサイズを統一したいと思っています。
1～20枚目のスライドに、それぞれ２つのグラフが貼付けてあります。
全てのグラフサイズ・位置を統一したいと思い、以下の様なVBAを書いてみました。

----------
Sub 表サイズの統一()
  Dim myTop1, myLft1, myHgt1, myWdt1, cnt, i, myTop2, myLft2, myHgt2, myWdt2
  With ActivePresentation.Slides(1).Shapes(1)
    myTop1 = .Top
    myLft1 = .Left
    myHgt1 = .Height
    myWdt1 = .Width
  End With
  
  With ActivePresentation.Slides(1).Shapes(2)
    myTop2 = .Top
    myLft2 = .Left
    myHgt2 = .Height
    myWdt2 = .Width
  End With
  
  cnt = ActivePresentation.Slides.Count
  
  For i = 2 To cnt
    With ActivePresentation.Slides(i).Shapes(1)
      .Top = myTop1
      .Left = myLft1
      .Height = myHgt1
      .Width = myWdt1
    End With
  Next
  
  For i = 2 To cnt
    With ActivePresentation.Slides(i).Shapes(2)
      .Top = myTop2
      .Left = myLft2
      .Height = myHgt2
      .Width = myWdt2
    End With
  Next
End Sub
----------
各スライドにある１つ目のグラフのサイズは統一出来たのですが、２枚目のグラフは何の変化もおきません。

どこが悪いのか、どなたかご教示頂ければ幸いです。
どうぞよろしくお願い致します。

tsubuyuki · Accepted Answer

失礼ながら、２００３で試行してみましたが、
ご提示のコードできちんと動きます。

なので
> どこが悪いのか
具体的な指摘は出来かねるのですが・・

For i = 2 To cnt
　　With ActivePresentation.Slides(i)
　　　　.Select
　　　　With .Shapes(2)
　　　　　　.Select
　　　　　　.Top = myTop1

として、ステップインで実行してみると原因が掴めるかもしれません。

余計なお世話かもしれませんが、

Sub 表サイズの統一()
Dim myTop1, myLft1, myHgt1, myWdt1, cnt, i, myTop2, myLft2, myHgt2, myWdt2

With ActivePresentation.Slides(1)
　　　　With .Shapes(1)
　　　　　　myTop1 = .Top
　　　　　　myLft1 = .Left
　　　　　　myHgt1 = .Height
　　　　　　myWdt1 = .Width
　　　　End With

With .Shapes(2)
　　　　　　myTop2 = .Top
　　　　　　myLft2 = .Left
　　　　　　myHgt2 = .Height
　　　　　　myWdt2 = .Width
　　　　End With
　　End With

cnt = ActivePresentation.Slides.Count

For i = 2 To cnt
　　　　With ActivePresentation.Slides(i)
　　　　　　With .Shapes(1)
　　　　　　　　.Top = myTop1
　　　　　　　　.Left = myLft1
　　　　　　　　.Height = myHgt1
　　　　　　　　.Width = myWdt1
　　　　　　End With

With .Shapes(2)
　　　　　　　　.Top = myTop2
　　　　　　　　.Left = myLft2
　　　　　　　　.Height = myHgt2
　　　　　　　　.Width = myWdt2
　　　　　　End With
　　　　End With
　　Next
End Sub

こんな感じでまとめるとスッキリしますね。

tsubuyuki · Answer

> "shape (不明なメンバー)：無効な要求です。図形を選択するには、表示がアクティブでなければいけません"
> とのエラーメッセージが帰ってきました。

>> ActivePresentation.Slides(2).Shapes(2).Select

とりあえず・・２枚目のスライドを表示させた状態で動かしましたか？と言うのが確認です。

これで選択できないという事は、
思惑の「グラフが二つ目のShapes」ではない、という事が考えやすいです。
※意味は２通り
　１）もしかしたら、グラフが「Shapeとして認識されていない」パターン
　　　２ページ目の二つ目のグラフの大きさを変える動作をマクロに記録し、
　　　ソレで確認するとはっきりします。
　　　例えば、こんな記録が残ります。
　　　　ActiveWindow.Selection.SlideRange.Shapes("Picture 22").Select
　　　　　　With ActiveWindow.Selection.ShapeRange
　　　　　　　　.ScaleWidth 0.75, msoFalse, msoScaleFromBottomRight
　　　　　　　　.ScaleHeight 0.67, msoFalse, msoScaleFromBottomRight
　　　　　　End With

２）「二つ目のShape」が別のShapeであるパターン
　　　一つ目のグラフを選択した状態にして、キーボードのＴａｂキーを押すと
　　　二つ目のグラフが選択された状態になって欲しいです。
　　　これがグラフではなく他のモノにカーソルが飛んでいくなら、
　　　グラフの間に別の何かが挟まっているという事ですね。
　　　　Sub test()
　　　　　　For i = 1 To ActivePresentation.Slides(2).Shapes.Count
　　　　　　　　Debug.Print ActivePresentation.Slides(2).Shapes(i).Name
　　　　　　Next
　　　　End Sub
　　　こんな感じで名前を書きだしていくと、何かわかるかもしれません。

そして、残念な報告です・・
２０１０でもご提示のコードで動いてしまいました・・
２００７だけ動かないと言うのもおかしな話ですが・・
力及ばず、申し訳ありません。
傾向と対策が見つかることを祈っております。

tsubuyuki · Answer

> ２枚目のグラフは何の変化もおきません。

> エラーメッセージ：
> Shapes(不明なメンバー）：範囲外の整数２は次の有効な範囲にありません：１から１へ
> ----------

すいません、確認ですが・・

２枚目のスライドを表示しておいて、

Sub Test()
　　ActivePresentation.Slides(2).Shapes(2).Select
End Sub

これを実行すると、思惑の「二つ目のグラフ」が選択された状態になりますか？

パワーポイントVBAでグラフのサイズ・位置を統一

失礼ながら、２００３で試行してみましたが、

> "shape (不明なメンバー)：無効な要求です。

> ２枚目のグラフは何の変化もおきません。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング