如何在EXCEL 2010版 插入整個資料夾的圖片
- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-5
- 最後登錄
- 2013-1-17
|
如何在EXCEL 2010版 插入整個資料夾的圖片
各位大大:
在EXCEL 2003版 可以執行插入整個資料夾的圖片, 但在EXCEL 2010已無法執行, 要如何改寫呢? 謝謝幫忙!
Sub PictureResize()
Application.ScreenUpdating = False
Dim p As Object
Dim i%, k&, h&
With Application.FileSearch
.LookIn = "D:\my Documents\My Pictures" '資料夾自己設
.FileType = msoFileTypeAllFiles
.Filename = "*.jpg"
.Execute
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set p = ActiveSheet.Pictures.Insert(.FoundFiles(i))
p.Left = Cells(i, 1).Left
p.Top = Cells(i, 1).Top
p.Width = Cells(i, 1).Width
p.Height = Cells(i, 1).RowHeight
Next
End If
End With
Set p = Nothing
Application.ScreenUpdating = True
End Sub |
|
|
|
|
|
|
- 帖子
- 3
- 主題
- 2
- 精華
- 0
- 積分
- 10
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- Office 2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-5
- 最後登錄
- 2013-1-17
|
3#
發表於 2012-4-1 21:26
| 只看該作者
|
|
|
|
|
|