- ©«¤l
- 97
- ¥DÃD
- 32
- ºëµØ
- 0
- ¿n¤À
- 167
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-22
- ³Ì«áµn¿ý
- 2017-8-16
|
[µo°Ý] §Q¥Î°j°é¤À§O´¡¤J¹Ï¤ù¦Ü©Ò¦³ªº¤u§@¶
½Ð±Ð¦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 |
|