[發問] EXCEL ,如何把圖片的檔案名都顯示出來???

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-2-27 14:26 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-2-27 15:46 編輯

我現在是用以下的VBA,本人不會VBA的,都是網上找回來的 ,
圖片是加好了,但是因為老闆要每個圖下邊都要註名圖片的檔案名,我的圖有幾千個....一個一個加...我想今天都不用下斑了
所以希望各位老師可以教一下我要如何做

Sub 圖片重新排列()
Dim xSP As Shape
Dim Ksz As Double, Kss As Double, Sp As Double, Cz As Double, G As Double, K As Double
Dim Mh As Integer, II As Integer
Ksz = ActiveCell.Left '開始左
Kss = ActiveCell.Top '開始上
Sp = 35 '水平
Cz = 160 '垂直
G = 0.1 '高
K = 170 '寬
Mh = 4 '每行
II = 0
For Each xSP In ActiveSheet.Shapes
If xSP.Type = msoPicture Then
With xSP
.LockAspectRatio = msoFalse
.Left = Ksz + (Sp + K) * (II Mod Mh)
.Top = Kss + (Cz + G) * (II \ Mh)
.Width = 190
.Height = 143
II = II + 1
End With
End If
Next
End Sub

複製代碼

Wing

靜思自在 : 屋寬不如心寬。