這篇是記錄,為方便以後使用。
個人不是非常了解巨集,這是查來的。
 
以下這個EXCEL巨集,
是想要將工作表中所有的註解
批次修改為:
1.大小位置不隨儲存格改變(註1)
2.註解格自動調整大小(註3)
3.字型全為"新細明體",字級12。(註2)
 
A.允許巨集運行。
B.編輯巨集:
「Alt+F8」或「檢視→巨集→檢視巨集」,
填入巨集名稱(任意),
然後點「編輯」,
將下列文字複製貼上即可。
再在編輯框下按儲存,關掉編輯窗。
C.執行巨集:
「Alt+F8」或「檢視→巨集→檢視巨集」,
選剛才編輯的巨集→執行。
D.查看結果:
應該所有註解都變成上面要求的格式了。
 
 
Sub modifycomment()
'整批修改現有工作表中註解的字型
Dim rng As Range
Dim ComRange As Range
'取得工作表中有註解的儲存格的集合
Set ComRange = ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
For Each rng In ComRange
'註解格位置跟隨儲存格不變
With rng.Comment.Shape
.Placement = xlFreeFloating
'修改註解位置,自動大小
With rng.Comment.Shape
.Left = rng.Left + rng.Width + 20
.Top = rng.Top + 10
With .TextFrame
.AutoSize = True
With rng.Comment.Shape.TextFrame.Characters.Font
.Name = "新細明體"
.Size = 12
End With
End With
End With
End With
Next rng
End Sub
 
 
 
註1:
這點不是太直觀,但「大小位置不隨儲存格改變」,意指:不管你怎麼插入新的行列,這個註解的大小和位置永遠保持和原儲存格相同。
而一般會覺得「大小位置隨儲存格而改」會使得註解格跟著儲存格走,實際實驗後卻剛好相反!使用此選項,插越多行註解格就會跑起遠...XD!
註2:
字型部分,可以比較不用擔心的替換成自己喜歡的字型和大小。
註3:
個人實驗的狀況,在自動大小功能的狀況,當輸入導致註解框大小改變時不會立刻顯示變形後大小,要點一下註解輸入區才會真的改變。不要去拉它,不然自動大小的功能對該註解格可能消失。
 
...
,
創作者介紹

Hwa's Memory in the Star.

華.小百合★ 發表在 痞客邦 PIXNET 留言(0) 人氣()