29、Excel VBA：形状操作与插件创建全攻略

会议雕塑

于 2025-11-27 15:23:28 发布

阅读量1

点赞数

CC 4.0 BY-SA版权

分类专栏： Excel VBA实战精通文章标签： Excel VBA 形状操作插入形状

本文链接：https://blog.youkuaiyun.com/pandas7gardener/article/details/155339542

Excel VBA实战精通专栏收录该内容

29 篇文章 ¥99.00

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

Excel VBA：形状操作与插件创建全攻略

1. Excel中使用VBA操作形状

在Excel中，我们可以向电子表格中插入形状，像图表和注释这类对象本质上就是形状。你可能已经使用过绘图工具栏上的“自动形状”菜单来插入形状，甚至尝试过3D选项。但你或许不知道，VBA能提供大量Excel菜单里没有的形状供我们使用，并且通过VBA还能更灵活地操作形状，相比Excel的用户界面，VBA操作更直接，也更容易看到操作效果。我们可以利用不常见的形状、颜色和3D效果让电子表格更有趣。

1.1 插入形状的代码示例

下面是一段插入形状的代码：

Sub test_shad()
    Dim w As Worksheet
    Set w = worksheets("sheet1")
    Dim myshape As Shape
    Set myshape = w.Shapes.AddShape(msoShapeBalloon, 90, 90, 90, 40)
    myshape.TextFrame.Characters.Text = "Test Message"
    myshape.TextFrame.Characters.Font.Bold = True
    With myshape.ThreeD
        .Visible = True
        .Depth = 40
        .ExtrusionColor.RGB = RGB(255, 100, 255)
        .PresetLightingDirection = msoLightingTop
    End