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

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

¦^´_ 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

¦^´_ 3# linsurvey2005


    ActiveSheet.Pictures.Insert(fs).Select

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD