[µo°Ý] §Q¥Î°j°é¤À§O´¡¤J¹Ï¤ù¦Ü©Ò¦³ªº¤u§@­¶

a703130

½Ð±Ð¦U¦ì¤j¨Ð
§Ú­ì¥»¿ý¥¨¶°±N10±i¹Ï¤ù¤À§O¦b¦Usheet¶K¨â±i¡A¥ÑSheet(1)~sheet(5)
¤U­±¬O§Ú¿ýªº¨ä¤¤¤@­Ó¥¨¶°¡A½Ð°Ý§Ú¦³¿ìªk¥Î°j°é¨Ó²¤Æ³oµ{¦¡½X¶Ü?
Sub Test()
    Sheets(1).Select

    Range("B9").Select
    ActiveSheet.Pictures.Insert("C:\test1.JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 438.75
    Selection.ShapeRange.Width = 590.25
    Selection.ShapeRange.Rotation = 0#

    Range("J9").Select
    ActiveSheet.Pictures.Insert("C:\final1.JPG").Select
    Selection.ShapeRange.LockAspectRatio = msoTrue
    Selection.ShapeRange.Height = 438.75
    Selection.ShapeRange.Width = 590.25
    Selection.ShapeRange.Rotation = 0#
End Sub