マクロ

'
' BackColorYellow Macro
' Keyboard Shortcut: Ctrl+Shift+Q
Sub BackColorYellow()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End Sub

'
' BackColorBeige Macro
' Keyboard Shortcut: Ctrl+Shift+S
Sub BackColorBeige()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.799981688894314
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorTransparent Macro
' Keyboard Shortcut: Ctrl+Shift+C
Sub BackColorTransparent()
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorOrange Macro
' Keyboard Shortcut: Ctrl+Shift+O
Sub BackColorOrange()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorLightBlue Macro
' Keyboard Shortcut: Ctrl+Shift+B
Sub BackColorLightBlue()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16777062
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

'
' BackColorGray Macro
' Keyboard Shortcut: Ctrl+Shift+G
Sub BackColorGray()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
        .PatternTintAndShade = 0
    End With
End Sub

'
' FontColorRed Macro
' Keyboard Shortcut: Ctrl+Shift+G
Sub FontColorRed()
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub
'
' FontColorDefault Macro
' Keyboard Shortcut: Ctrl+Shift+D
Sub FontColorDefault()
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
End Sub

'
' FontColorBlue Macro
' Keyboard Shortcut: Ctrl+Shift+X
Sub FontColorBlue()
    With Selection.Font
        .Color = -65536
        .TintAndShade = 0
    End With
End Sub

その2

'
' FloatingComment Macro
' Keyboard Shortcut: Ctrl+Shift+F
Sub FloatingComment()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 16777062
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    
    ActiveSheet.Shapes.AddShape(msoShapeRectangularCallout, Selection.Range.Cells(1, 1).Left, Selection.Range.Cells(1, 1).Top, 139.5, 72.75) _
        .Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 153, 255)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 102, 255)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.TextFrame2.TextRange.Font
        .BaselineOffset = 0
        .Fill.Visible = msoTrue
        .Fill.ForeColor.RGB = RGB(0, 0, 0)
        .Fill.Transparency = 0
        .Fill.Solid
    End With
End Sub
'
' InsertRedRectangle Macro
' Keyboard Shortcut: Ctrl+Shift+I
Sub InsertRedRectangle()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 288, 228.75, 144, 69.75).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 1.5
    End With
End Sub