- ©«¤l
- 10
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 11
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7 SP1
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-6-12
- ³Ì«áµn¿ý
- 2023-7-14
|
¦^´_ 3# lpk187
¤p§Ì¸Õ¤F´X¤Ñ,ÁÙ¬O§Ë¤£¥X¨Ó
ÁÂÁ¤jô¼ö¤ß¦^ÂÐ,½Ð°Ý§Ú¬Oþ¸Ì°µ¿ù¾ÉP»yªk¥¢±Ñ©O??
¤§«á·j¯Á¤@¨Ç¹Ï¤ùªº»yªk,§ä¨ìHsieh«e½ú¼gªº¦Û¤v¿ï¾ÜÀɮ׶K¤W
§Ú¦A§â¨º¤@¾ãÄæ°Å¤U¶K¤W,¤]¬O¤@ºØ¿ìªk- Sub InputPictures()
- Dim fs(), A As Range
- If ActiveSheet.Shapes.Count > 0 Then
- ActiveSheet.Shapes.SelectAll
- Selection.Delete
- End If
- On Error GoTo 10
- fs = Application.GetOpenFilename("©Ò¦³¹Ï¤ù(*.jpg;*.png;*.tiff;*.bmp;*.gif),*.jpg;*.png;*.tiff;*.bmp;*.gif", , , , True)
- For i = 1 To UBound(fs)
- Set A = Cells(i, 1)
- A = fs(i)
- With ¤u§@ªí1.Shapes.AddPicture(fs(i), True, True, A.Offset(, 1).Left, A.Top, A.Offset(, 1).Width, A.Offset(, 1).Height)
- .Placement = xlMoveAndSize
- End With
- Next
- 10
- End Sub
½Æ»s¥N½X |
|