- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 253
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-11-22
|
- 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
|
|