返回列表下一主題上一主題發帖

如何在EXCEL 2010版插入整個資料夾的圖片

ricky1019

小學生 Rank: 1

帖子: 3
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-6-5
最後登錄: 2013-1-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-3-31 16:33 | 只看該作者

如何在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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 277
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章