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 = msoThemeC