转:修改shape的文字

Sub 修改shape的文字()
'
' 修改shape的文字 宏
'

'
    ActiveSheet.Shapes.Range(Array("Flowchart: Connector 193")).Select

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "点"
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignLeft
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 11
        .Name = "+mn-lt"
    End With
    Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Selection.ShapeRange.TextFrame2.TextRange.Font.UnderlineStyle = _
        msoUnderlineSingleLine
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 1).Font.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 112, 192)
        .Transparency = 0
        .Solid
    End With
    Selection.ShapeRange.TextFrame2.TextRange.Font.UnderlineStyle = _
        msoUnderlineSingleLine
End Sub
---------------------
作者：xploverain
来源：CSDN
原文：https://blog.csdn.net/xploverain/article/details/54375932
版权声明：本文为博主原创文章，转载请附上博文链接！