回転させた画像を左上のセルにフィットさせたい

以下のマクロは画像を画像の左角のセルの左隅にフィットさせる
マクロのようです。回転させていな画像は問題なく左隅にフィットする
のですが回転させた図形の場合はフィットしません。回転させた図形
でも問題なくフィットさせることができるマクロはないでしょうか？
ご教示よろしくお願いいたします。



Sub 左角のセルにフィット()
Dim pict
On Error Resume Next
For Each pict In ActiveSheet.Shapes
pict.Left = pict.TopLeftCell.Left
pict.Top = pict.TopLeftCell.Top
Next pict
End Sub

No.1 ベストアンサー 回答者： shino719 回答日時： 2014/12/16 01:34

Office2013で作成してみましたが、以下はどうでしょうか。

セルを選択してオブジェクトを貼り付けたら、左上キッチリに
貼り付けされる機能を利用しています。

Sub 左角のセルにフィット()
　　Dim pict
　　Dim pos As String
　　On Error Resume Next
　　For Each pict In ActiveSheet.Shapes
　　　　'オブジェクトのセル位置を取得
　　　　'回転していてもしていなくても左上のセルが取れる模様
　　　　pos = pict.TopLeftCell.Address(False, False)
　　　　'オブジェクトを切り取り
　　　　pict.Cut
　　　　'オブジェクトがあったセルを選択
　　　　Range(pos).Select
　　　　'オブジェクト貼り付け
　　　　ActiveSheet.Paste
Next pict
End Sub

この回答へのお礼

早々とご教示いただき本当にありがとうございます。
さっそく私が使用しているエクセル2010で確認したのですが
セルの左上にきっちり貼り付けることができました。
業務で写真貼り付けの作業が結構あるので非常に助かります。
重ねてお礼申し上げます。

お礼日時：2014/12/16 19:45