excelの図形の図の書式設定を図形Aから図形Bにvbaでコピーする方法を教えて下さい。

Question

excelの図形の図の書式設定を図形Aから図形Bにvbaでコピーする方法を教えて下さい。
「図の書式設定」
サイズ＞高さの調整(H)
トリミング＞横方向の移動(X)
トリミング＞縦方向の移動(Y)
トリミング位置＞幅(I)
トリミング位置＞高さ(G)
等
よろしくお願いします。

Answer 1

単純に図1から図2にコピーするならこれでいかがでしょうか。

myDocument.Shapes(2).Height = myDocument.Shapes(1).Height
myDocument.Shapes(2).PictureFormat.Crop.PictureOffsetX = myDocument.Shapes(1).PictureFormat.Crop.PictureOffsetX
myDocument.Shapes(2).PictureFormat.Crop.PictureOffsetY = myDocument.Shapes(1).PictureFormat.Crop.PictureOffsetY
myDocument.Shapes(2).PictureFormat.Crop.PictureWidth = myDocument.Shapes(1).PictureFormat.Crop.PictureWidth
myDocument.Shapes(2).PictureFormat.Crop.PictureHeight = myDocument.Shapes(1).PictureFormat.Crop.PictureHeight

どのプロパティを指定したらよいか分からない場合、マクロを記録した状態で色々といじってみるとよいと思います。