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

´¡¤J¹Ï¤ù(¦Û¿ïÀÉ®×)

´¡¤J¹Ï¤ù(¦Û¿ïÀÉ®×)

¦p¦óÅýÀɦW¬°¦Û¿ï
sub ¿ï¹Ï¤ù()
ActiveSheet.Pictures.Insert("D:\1´ú¶q³ø§i¤ÀÃþ\25 ¯Ó§÷ºÞ²z\3¸¹¥R¹q¹q¦À.JPG").Select
end sub
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

¦^´_ 1# linsurvey2005
  1. Sub ex()
  2. Dim fs$
  3. fs = Application.GetOpenFilename("Image Files (*.jpg;*.bmp;*.png), *.jpg;*.bmp;*.png")
  4. ActiveSheet.Pictures.Insert fs
  5. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# white945


    ½Ð±Ð´¡¤J¹Ï¤ù«á­nÅý¥¦¬°¿ï¨ú(.select)¸Ó¦p¦ó¼g ÁÂÁÂ
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

¦^´_ 3# linsurvey2005


    ActiveSheet.Pictures.Insert(fs).Select

TOP

¦^´_ 4# white945


    ÁÂÁÂ"white945"¤j¤jªº¨ó§U,°ÝÃD¤w¸g±Æ°£,¤]¾Ç²ß°_¨Ó¤F
¶}¤ß¾Ç²ß,¾Ç²ß«Ü¶}¤ß

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD