VBAによるセル内の画像の位置調整

質問

Excel2007のVBAからShell関数で外部実行プログラムを起動します。
外部実行プログラムは画像データをクリップボードへデータを出力後、自動で終了します。
Shell関数とWin32APIを使用して外部プログラムを実行し、プログラムが終了するまで待つように処理して、
クリップボードから指定する複数の結合したセルへ画像を貼り付ける事は出来たのですが、
画像がセルの左上を基準に貼り付けられます。
この画像を、セルの中央に位置調整したいのですが可能なのでしょうか？
また画像の回転（１度単位）は可能でしょうか？

'指定セルへクリップボードの内容を貼り付け
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("H53")

画像ファイルなどを読み込む訳ではないため、画像データ自体に名前がありません。
手動で位置調整は可能ですが、自動化出来ないかと色々調べ試してみたのですが、思う様に実現できません。
セルの結合は５行、列は結合していません。

どなたか御存知でしたら回答下さい。

回答No.5

end-u

こんにちは。

Sub try()
　　Const n As Long = 4　　'margin
　　Dim r　 As Range
　　Dim x　 As Double

　　With Worksheets("Sheet1")
　　　　Set r = .Range("H53").MergeArea
　　　　.Activate
　　　　.PasteSpecial Format:="図 (拡張メタファイル)"
　　End With
　　With Selection.ShapeRange
　　　　x = Application.Min((r.Width - n) / .Width, (r.Height - n) / .Height)
　　　　.LockAspectRatio = msoTrue
　　　　If x < 1 Then .Width = .Width * x
　　　　.Left = r.Left + (r.Width - .Width) / 2
　　　　.Top = r.Top + (r.Height - .Height) / 2
　　End With
　　ActiveCell.Select
　　Set r = Nothing
End Sub

こんな感じでどうでしょう。

>確かに回転は不可能でした。
との記述から、Paste後、その画像はObjectとして貼り付けられていませんか？
選択して[名前BOX]で確認してみてください。
回転させるなら、Shapeとして貼り付けるのが手っ取り早いです。
その場合は [Rotationプロパティ]や[IncrementRotationメソッド]が使えます。

Selectionを使いたくなければokormazdさんが書かれている
...Shapes(Sheet.Shapes.Count) で指定できますよ。
コマンドボタンなどの画像以外のものがあっても判定できます。
Shapes.Count、つまりShapesの最大値のIndexでShapeを指定しますから
最後に追加されたShapeになります。

#PasteSpecialの場合、たぶんSheet.Activateが必要なのでSelectionで充分だとは思いますが。

お礼

end-uさん、ありがとうございます。
>最後に追加されたShapeになります。
確かにそうなりました。

質問には書いていなかったのですが、画像は複数挿入します。
ただ、挿入する順番は決まっていませんので、Indexで指定出来るかどうか・・・

提示頂いたコードは帰宅後試してみます。