- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- window 7
- 軟體版本
- office
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-2-27
- 最後登錄
- 2012-2-27
|
[發問] EXCEL ,如何把圖片的檔案名都顯示出來???
本帖最後由 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
|
|
發表於 2012-2-27 14:26
| 
