- ©«¤l
- 2
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 52
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2011-10-20
- ³Ì«áµn¿ý
- 2012-10-30
|
¥»©«³Ì«á¥Ñ ¦K¤Ò ©ó 2011-10-24 10:01 ½s¿è
§Ú¬OVBA·s¤â§¹¥þ¤£À´^^"¡A
¤u§@³ø§i¤W¦³¤j¶qªº¹ÏÀÉn¶K¤J¡A
¤U±µ{¦¡¼g¨ì§Ö¤â³n.....ÁÙ¨S¼g§¹¡A
¬G½Ð±Ð¦U¦ì¤j¤j§Ú¤U±½s¼gªº¤è¦¡¬O§_¯à¥Î§ó²¼äªº»yªk¨Ó°µ¡C
Sub Macro1()
Range("B264").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00000.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("g264").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00001.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B281").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00002.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G281").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00003.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B298").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00004.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G298").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00005.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B317").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00006.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G317").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00007.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B334").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00008.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G334").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00009.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B351").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00010.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G351").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00011.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B370").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00012.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G370").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00013.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("B387").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00014.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
Range("G387").Select
ActiveSheet.Pictures.Insert( _
"D:\test\TEK00015.PCX"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 137.25
Selection.ShapeRange.Width = 182.25
End Sub
·PÁª©¥DHsieh ¼ö¤ßªºÀ°¦£ |
|