¦Û­qªí³æ¤¤¦C¦LJPGÀÉ

hbjang

¦U¦ì¤j¤j
§Ú¦b¦Û­qªí³æ¤¤«Ø¥ß¤@­ÓCommandButton,§Æ±æ«ö¤UCommandButton«á,¯à¦C¦L©T©wªºJPGÀÉ®×,¤£»ÝÅã¥ÜÀÉ®×,½Ð°Ý¸Ó¥Î­þ¤@­Ó«ü¥O©Î¨ç¦¡?ÁÂÁÂ

kimbal

¸Ñ¨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

1. Private Sub CommandButton1_Click()
   
2. Dim pic
   
3. Application.DisplayAlerts = False
   
4. With Sheets.Add
   
5.     Set pic = .Pictures.Insert("C:\Users\kimbal\Pictures\28.png")  '¹Ï¤ùÀɥؿý
   
6.     pic.Width = 400
   
7.     pic.Height = 300
   
8.     .PrintOut
   
9.     .Delete
   
10. End With
    
11. Application.DisplayAlerts = True
    
12. End Sub

½Æ»s¥N½X

hbjang

¸Ñ¨M¤F,ÁÂÁÂ
¤£¹L§ÚªºJPGÀɤj¤p¤£¤@,¬O§_¦³¿ìªk¦C¦L¦¨¤@¼Ë¤j¤pªº¤Ø¤o,PrintOut¬O§_¦³¤@¨Ç°Ñ¼Æ¥i¥H¤U?·P¿E

Hsieh

¦^´_ 1# hbjang

¥i§Q¥Î¤u§@ªí¦C¦L

1. Private Sub CommandButton1_Click()
   
2. Application.DisplayAlerts = False
   
3. With Sheets.Add
   
4. .Pictures.Insert "C:\Users\User\Pictures\102_0124.jpg" '¹Ï¤ùÀɥؿý
   
5. .PrintOut
   
6. .Delete
   
7. End With
   
8. Application.DisplayAlerts = True
   
9. End Sub

½Æ»s¥N½X