今日学习目标

  • 学会用VBA添加形状
  • 掌握形状的属性设置
  • 学会操作形状

知识点

Shape对象

vba
' 添加形状
ActiveSheet.Shapes.AddShape msoShapeRectangle, Left, Top, Width, Height

今日代码

vba
' 添加形状
ActiveSheet.Shapes.AddShape msoShapeRectangle, Left, Top, Width, Height

练习题

  1. 添加并格式化形状
  2. 添加文本框
  3. 批量处理形状

参考解答

1. 使用Shapes.AddShape添加形状，通过Fill.ForeColor设置填充色，Line.Weight设置边框。 2. 用Shapes.AddTextbox设置文本框，TextFrame.TextRange设置文本内容和格式。 3. 遍历Shapes集合批量设置样式，使用For Each...Next循环处理每个Shape对象。

由在线工具箱(www.vba.net)整理制作