Chapter-02 字型

第二章　字型
02-01　改變文字的尺寸

應用範例
Sub 文字尺寸()
MsgBox “將儲存格範圍內的文字尺寸設定為20點”
Selection.Font.Size = 20
End Sub

02-02　設定標準文字尺寸

應用範例
Sub 標準文字的尺寸()
MsgBox “顯示Excel目前的標準文字尺寸”
MsgBox Application.StandardFontSize
End Sub

02-03　將文字設為斜體

應用範例
Sub 將文字設為斜體()
MsgBox “將被選取的儲存格範圍內文字變更為斜體字”
Selection.Font.Italic = True
End Sub

02-04　將文字設為粗體

應用範例
Sub 將文字設為粗體()
MsgBox “將被選取的儲存格範圍內文字變更為粗體字”
Selection.Font.Bold = True
End Sub

02-05　將文字設為粗斜體

應用範例
Sub 將文字設定為粗斜體()
MsgBox “將被選取的儲存格範圍內文字變更為粗斜體”
Selection.Font.FontStyle = “Bold Italic”
End Sub

02-06　將文字加上刪除線

應用範例
Sub 將文字加上刪除線()
MsgBox “將被選取的儲存格範圍內文字加上刪除線”
Selection.Font.Strikethrough = True
MsgBox “回復原來的狀態”
Selection.Font.Strikethrough = Flase
End Sub

02-07　將文字加上底線

應用範例
Sub 將文字加上底線()
MsgBox “將被選取的儲存格範圍內文字加上雙底線”
Selection.Font.Underline = xlUnderlineStyleDouble
MsgBox “回復原來的狀態”
Selection.Font.Underline = xlUnderlineStyleNone
End Sub

02-08　上標字及下標字

應用範例1
Sub 將文字變為上標字()
MsgBox “將被選取的儲存格範圍內文字變為上標字”
Selection.Font.Superscript = True
MsgBox “回復原來的狀態”
Selection.Font.Superscript = False
End Sub

應用範例2
Sub 將文字變為下標字()
MsgBox “將被選取的儲存格範圍內文字變為下標字”
Selection.Font.Subscript = True
MsgBox “回復原來的狀態”
Selection.Font.Subscript = False
End Sub

02-09　改變文字的顏色

應用範例
Sub 設定文字的顏色()
MsgBox “依序(1～56的顏色索引編號)變更儲存格範圍內文字的顏色”
For i = 1 To 56
Selection.Font.ColorIndex = i
henji = MsgBox (“索引編號： ” & i & “ 的顏色，繼續嗎？”, vbYesNo)
If henji = vbNo Then Exit For
Next i
MsgBox “回復到預設的顏色”
Selection.Font.ColorIndex = xlColorIndexAutomatic
End Sub

02-10　變更文字的字型

應用範例
Sub 設定文字的字型()
MsgBox “將被選取的儲存格範圍內文字字型變更為Broadway”
fname = Selection.Font.Name
MsgBox “目前的字型名稱： ” & fname
Selection.Font.Name = “Broadway”
MsgBox “回復原字型”
Selection.Font.Name = fname
End Sub

02-11　設定標準文字字型

應用範例
Sub 顯示標準字型()
MsgBox “顯示目前的標準字型名稱”
MsgBox Application.StandardFont
End Sub

02-12　一次設定多個文字屬性

應用範例
Sub 設定多個文字屬性()
MsgBox “在選取中的儲存格內將文字設為15點、斜體、紅色、粗體”
With Selection.Font
.Size = 15
.Bold = True
.Italic = True
.ColorIndex = 3
End With
End Sub

02-13　將文字中的部份文字著色

應用範例
Sub 對部份文字設定顏色()
MsgBox “在選取的儲存格內，將自第四個字數起的三個字設為粗體紅字”
With Selection.Characters(4,3).Font
.Bold = True
.ColorIndex = 3
End With
End Sub