Excel マクロで画像を移動

914 ワード

Excel VBAで画像を移動させる

Sub 右移動()

    Sheet1.Shapes("Picture 2").Left = Sheet1.Shapes("Picture 2").Left + 10
    Sheet1.Shapes("Picture 2").Rotation = 90

End Sub

Sub 左移動()

    Sheet1.Shapes("Picture 2").Left = Sheet1.Shapes("Picture 2").Left - 10
    Sheet1.Shapes("Picture 2").Rotation = -90

End Sub
Sub 上移動()

    Sheet1.Shapes("Picture 2").Top = Sheet1.Shapes("Picture 2").Top - 10
    Sheet1.Shapes("Picture 2").Rotation = 0

End Sub
Sub 下移動()

    Sheet1.Shapes("Picture 2").Top = Sheet1.Shapes("Picture 2").Top + 10
    Sheet1.Shapes("Picture 2").Rotation = 180

End Sub

Author And Source

この問題について(Excel マクロで画像を移動), 我々は、より多くの情報をここで見つけました https://qiita.com/RedAttesa/items/bb3189d6eddffb0dd917

著者帰属：元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。

Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .