マクロで写真を回転させたい

質問

お世話になります。
Excel2007です。
2行×4列のセルがA4横のページ収まるようにしています。
計8個のセルの中に写真をいれてあります。
2行目の写真全体を180度回転させるマクロは出来ますか

マクロなしでは、2行目の写真をグループ化して回転でできるのですが
「マクロの記録」から同じ操作をやってもコードは生成してくれません

回答No.1

mt2008 · ベストアンサー

Excel2007は、マクロの記録で記録できる操作に制限が掛かったらしく、図の操作は記録してくれない様です。
ただし、マクロ自体は無くなったわけではありませんので、以下のようなマクロで可能だと思います。

Picture 1～4を180°回転
ActiveSheet.Shapes.Range(Array("Picture 1", "Picture 2", "Picture 3", "Picture 4")).Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Rotation = 180#

お礼

ご回答ありがとうございます。
図にも名前が付いていて、この名前を変更するには名前ボックスでできることを知りました。

回転は「Picture4,Picture3,Picture2,Picture1 」と配置も入れ替えるのと位置ズレを防ぐため
手作業では描画機能の長方形をかぶせて、全体の図を「グループ化」してからご提示の処理をすると期待通りの結果が得られました。

描画、グループ化のマクロ化の質問を新しく立ち上げますので、お気づきの説は宜しくお願いします。