Sub ki292()
    ActiveSheet.Shapes.AddTextEffect(msoTextEffect30, "‚u‚a‚`•Ö—˜’ ", "‚l‚r ‚oƒSƒVƒbƒN", 36#, _
    msoFalse, msoFalse, 130, 170).Select
    Selection.ShapeRange.TextEffect.ToggleVerticalText
    Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapeWave1
    Selection.ShapeRange.IncrementRotation -4.15
    pnam2 = Selection.Name
    Range("B12").Select
    
    ActiveSheet.Shapes(pnam2).Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Fill.OneColorGradient msoGradientFromCenter, 1, 0.38
    Application.CommandBars("WordArt").Visible = False
    Range("B12").Select
End Sub