ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

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

TOP

¸Ñ¨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
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD