- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¸Ñ¨M¤F,ÁÂÁÂ
¤£¹L§ÚªºJPGÀɤj¤p¤£¤@,¬O§_¦³¿ìªk¦C¦L¦¨¤@¼Ë¤j¤pªº¤Ø¤o,PrintOut¬O§_¦³¤@¨Ç°Ñ¼Æ¥i¥H¤U?·P¿E
hbjang µoªí©ó 2012-5-14 20:05
§âªø¼e³]¬° 400 x 300- Private Sub CommandButton1_Click()
- Dim pic
- Application.DisplayAlerts = False
- With Sheets.Add
- Set pic = .Pictures.Insert("C:\Users\kimbal\Pictures\28.png") '¹Ï¤ùÀɥؿý
- pic.Width = 400
- pic.Height = 300
- .PrintOut
- .Delete
- End With
- Application.DisplayAlerts = True
- End Sub
½Æ»s¥N½X |
|