|
こんばんは。
FontChangedイベントについては、ちょっと試しましたが、ツールバーでのフォント変更には未対応(?!)でしたので、やめました。
で、Worksheet_SelectionChangeイベントで作ってみました。
以下、対象のシートモジュールへ
-------------------------------------------
Dim mySize As Double
Dim myName As String
Dim myBold As Boolean
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Goto Target
If UBound(Application.PreviousSelections) < 2 Then GoTo skip
With Application.PreviousSelections(2)
Select Case False
Case .Font.Size = mySize
MsgBox "Sizeが変更されました" & Chr(10) & "元に戻します"
Me.Unprotect
.Font.Size = mySize
Me.Protect
Case .Font.Name = myName
MsgBox "Name"
Me.Unprotect
.Font.Name = myName
Me.Protect
Case .Font.Bold = myBold
MsgBox "Bold"
Me.Unprotect
.Font.Bold = myBold
Me.Protect
End Select
End With
skip:
With Target
mySize = .Font.Size
myName = .Font.Name
myBold = .Font.Bold
End With
End Sub
------------------------------------------
では。
|
|