vba - VBAを使用してExcelで画像を移動するには?

Question

VBAを使用して、Excelのある場所から別の場所に画像を移動したい。

どうすればそれができますか？

Answer 1

特定のワークシート内で画像の位置を変更する必要がある場合は、次のようなものを使用できます。

ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.ShapeRange.IncrementLeft 100

.Increment... コマンドのパラメータを変更することで、モーションの方向と量を調整して、たとえば画像をアニメーション化できます。

Answer 2

別の例: 画像を垂直方向に移動して、特定の行に合わせます。

Sheets(1).Shapes("Picture 1").Top = Sheets(1).Rows(24).Top

Answer 3

すばやく汚れてシート間を移動する必要がある場合は、次のように機能します

Sub CutAndPasteAPicture(shapeName As String, fromSheet As String, toSheet As String, toRange As String)
'Cut and Paste
Sheets(fromSheet).Shapes(shapeName).Cut
Sheets(toSheet).Paste Sheets(toSheet).Range(toRange)
End Sub

Sub Example()
  CutAndPasteAPicture "Picture 1", "Sheet1", "Sheet2", "D2"
End Sub