- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 108
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-5-10
              
|
- 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 工作表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
|
|
發表於 2010-6-4 22:56
| 