Snasui Excel Forum

Code: Select all

Sub ขนาด26()
'
' ขนาด26 Macro
'
' Keyboard Shortcut: Ctrl+a
'
   Range("[color=#FF0040]C25:I25[/color]").Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 26
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

Sub ขนาด32()
'
' ขนาด32 Macro
'
' Keyboard Shortcut: Ctrl+s
'
    Range("[color=#FF0040]C25:I25[/color]").Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 32
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub


Sub ขนาด48()
'
' ขนาด48 Macro
'
' Keyboard Shortcut: Ctrl+d
'
    Range("[color=#FF0040]C25:I25[/color]").Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 48
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub


Sub ขนาดราคา26()
'
' ขนาดราคา26 Macro
'
' Keyboard Shortcut: Ctrl+f
'
    Range("[color=#FF0040]F32:H35[/color]").Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 26
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

Sub ขนาดราคา32()
'
' ขนาดราคา32 Macro
'
' Keyboard Shortcut: Ctrl+g
'
    Range("[color=#FF0040]F32:H35[/color]").Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 32
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub


Sub ขนาดราคา48()
'
' ขนาดราคา48 Macro
'
' Keyboard Shortcut: Ctrl+h
'
    Range("[color=#FF0040]F32:H35[/color]").Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 48
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End Sub

Code: Select all

Sub test()
    Dim cl As Object, r As Range
    Dim x As String, rx As Range
    Set cl = ActiveSheet.Shapes(Application.Caller)
    x = cl.DrawingObject.Caption
    Set r = ActiveSheet.Range(cl.TopLeftCell.Address).End(xlUp)
    Select Case r.Value
        Case "ขนาดตัวอักษรชื่อ"
            Set rx = r.Offset(1, -9).Resize(1, 9)
            With rx.Font
                .Name = "Tahoma"
                .Size = x
            End With
        Case "ขนาดตัวอักษรราคา"
            Set rx = r.Offset(1, -9).Resize(7, 9)
            With rx.Font
                .Name = "Tahoma"
                .Size = x
            End With
    End Select
End Sub