Excel VBA 根據合併單元格大小調整圖片大小
Sub adjustpic() '根據合併單元格大小調整圖片大小
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
If Pic.TopLeftCell.MergeCells = True Then
Set cc = Pic.TopLeftCell.MergeArea
Pic.LockAspectRatio = msoFalse
Pic.Top = cc.Top + 5
Pic.Left = cc.Left + 5
Pic.Height = cc.Height - 10
Pic.Width = cc.Width - 10
End If
Next
End Sub
Dim Pic As Shape
For Each Pic In ActiveSheet.Shapes
If Pic.TopLeftCell.MergeCells = True Then
Set cc = Pic.TopLeftCell.MergeArea
Pic.LockAspectRatio = msoFalse
Pic.Top = cc.Top + 5
Pic.Left = cc.Left + 5
Pic.Height = cc.Height - 10
Pic.Width = cc.Width - 10
End If
Next
End Sub
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
Excel VBA 獲取指定路徑下的文件夾名稱
Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO
lxljw1314
2020-07-03 18:54:46
Excel VBA 根據sheet名稱創建相應的文件夾
lxljw1314
2020-07-03 18:54:46
Excel VBA 獲取指定路徑下的圖片名稱(帶後綴)/(不帶後綴)/跳出選擇路徑對話框手動選擇路徑
lxljw1314
2020-07-03 18:54:46
Excel VBA 在立即窗口打印出所有shape的名稱
lxljw1314
2020-07-03 18:54:46
Excel VBA 例子
Roenfun
2020-06-30 05:25:33
【Excel VBA】Day01 Excel VBA基礎
htsait4113
2020-06-27 03:38:19
[VBA] Excel錶快速合併,多個Excel表合併到一個裏面,只保留一個表頭
Luyy94
2020-06-26 13:04:01
Excel VBA - Range對象
Rows.Count 顯示所有行的數目 Columns.Count 顯示所有列的數目 Cells(Rows.Count, 1).End(
McDelfino
2020-06-16 03:55:10
Excel VBA - Workbook對象
McDelfino
2020-06-16 03:55:10
Excel VBA - 控件與用戶窗體 及 常用函數
McDelfino
2020-06-16 03:55:10
Excel VBA - Application對象
Application.Version 顯示Excel的版本號 Application.UserName 顯示當前用戶的用戶名 Appl
McDelfino
2020-06-16 03:55:10
EXCEL 公式 多列轉成一行
璀璨_帝禹
2020-06-14 17:20:17
EXCEL公式 VBA 隨機生成不重複值
璀璨_帝禹
2020-06-14 17:20:17
VBA的Format函數
璀璨_帝禹
2020-06-14 17:20:17
24小時熱門文章