Excel2010´¡¤J¹Ï¤ùÅܦ¨³sµ²¤è¦¡¦sÀÉ><
- ©«¤l
- 57
- ¥DÃD
- 36
- ºëµØ
- 0
- ¿n¤À
- 94
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2013
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-13
|
Excel2010´¡¤J¹Ï¤ùÅܦ¨³sµ²¤è¦¡¦sÀÉ><
§Ú쥻ªºµ{¦¡½X¡A¬O§Q¥Î´¡¤J¹Ï¤ùªº¤è¦¡¡A±N¹Ï¤ù´¡¤J¨ì¤u§@ªí¤¤
¦ý¬O¥Îexcel 2010°õ¦æµ{¦¡ªº®ÉÔ
ÁöµMÁÙ¬O¦³´¡¤Jªº®ÄªG
¦ý¥un§Ú¨Ó·½¹Ï¤ù²¾°Ê¡A´N·|Åã¥Ü¿ù»~³s±µ
¦ü¥Gexcel 2010·|¥[´¡¤J¹Ï¤ù¿ëÃѦ¨³sµ²¹Ï¤ù
§Ú´¡¤J¹Ï¤ùªºµ{¦¡½X¦p¤U
Set pic = sht.Pictures.Insert(MyPath & MyName)
'¥Dn¬O¤W±³o¤@¦æ·|¦³°ÝÃD¡An«ç»òקï©O ><
thank you!
With pic
.Top = ActiveSheet.Cells(1, 1).Top
.Left = ActiveSheet.Cells(1, 1).Left
End With |
|
|
|
|
|
|
- ©«¤l
- 2834
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2890
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-25
|
ActiveSheet.Shapes.AddPicture(¸ô®|, False, True, ¥ªÃä¬É, ¤WÃä¬É, ¼e«×, °ª«×)
°Ñ¦Ò:
EXCEL¡D°Ó«~«¬¿ý¡D¦b¡e¥Ø¿ýªí¡f¤¤§Ö³t¸ü¤J¡e°Ó«~¹Ï¤ù¡f
http://blog.xuite.net/smile1000mile/blog/94861181 |
|
|
|
|
|
|