使用VBA给Excel自选图形添加文字的代码

Admin | 2010-5-4 21:16:46 | 被阅次数 | 16646

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　使用如下的代码，可以给Excel中插入的自选图形动态添加文字。以下代码是示例代码，请根据需要加以修改并利用。

　　代码如下：

　　Dim sh As Shape
　　Set sh = Sheet1.Shapes.AddShape(msoShapeHexagon, 120, 120, 40, 10 * Sqr(3))
　　sh.TextFrame.Characters.Text = "这里就填写自选图形的文字"
　　   With sh.TextFrame.Characters.Font
　　       .Name = "宋体"
　　        .FontStyle = "倾斜"
　　        .Size = 9
　　        .Strikethrough = False
　　        .Superscript = False
　　        .Subscript = False
　　        .OutlineFont = False
　　        .Shadow = False
　　        .Underline = xlUnderlineStyleNone
  　　      .ColorIndex = 3
　　    End With
　　    With sh.TextFrame
　　        .HorizontalAlignment = xlCenter
　　        .VerticalAlignment = xlCenter
　　        .ReadingOrder = xlContext
　　        .AutoSize = False
　　    End With