暂无图片
暂无图片
暂无图片
暂无图片
暂无图片
首页 / VBA添加图形和文字及阴影

VBA添加图形和文字及阴影

VBA语言専攻 2022-09-20
275
【分享成果，随喜正能量】唯独在这些孤独和沉思默想的时刻，我才是真正的我，才是和我的天性相符的我，我才既无忧烦又无羁束。。
《VBA之Word应用》（10178982），是我推出第八套教程，教程是专门讲解VBA在Word中的应用，围绕“面向对象编程”讲解，首先让大家认识Word中VBA的对象，以及对象的属性、方法，然后通过实例让大家感受到Word VBA 的妙处。本套教程共三册十六章，今日内容为第九章：Shapes对象和Shape对象的第4节：VBA添加图形和文字及阴影

第五节 Shape对象的属性（二）

大家好，我们这节继续Shape对象的属性讲解，上一讲给大家讲解Shape对象的AutoShapeType属性、CanvasItems 属性、Fill属性。这节给大家介绍Shape对象的Name属性，Shadow属性和TextFrame 属性。

1  Shape.Name属性

该属性返回或设置指定对象的名称
语法：expression.Name
其中expression 是必须的，代表一个Shape对象的变量。

2  Shape.Shadow属性

该属性返回一个ShadowFormat对象, 该对象代表指定形状的阴影格式。
语法：expression.Shadow
其中expression 是必须的，代表一个Shape对象的变量。

3  Shape.TextFrame属性

该属性返回一个TextFrame对象, 该对象包含指定形状的文本。
语法：expression.TextFrame
其中expression 是必须的，代表一个Shape对象的变量。

4  实例：添加图形和文字及阴影

下面我们看一下实例的应用，这个实例中我们会首先添加一个矩形，然后在这个矩形中添加文字，最后加上阴影。我们看下面的代码：

Sub mynzD()
    Set myDocument = ActiveDocument
    With myDocument.Shapes.AddShape(msoShapeRectangle, 240, 100, 250, 140)
        With .TextFrame
            'TextRange返回一个Range对象, 该对象代表指定的文本框架中的文本。
            .TextRange.Text = "VBA学习"
            '返回或设置文本框架的底边与包含文本的形状的内接矩形的底部之间的距离 (以磅为单位)。
            .MarginBottom = 50
            '返回或设置文本框架的左边缘与包含该文本的形状的内接矩形的左边缘之间的距离 (以磅为单位)。
            .MarginLeft = 30
            '返回或设置文本框架的右边缘与包含该文本的形状的内接矩形的右边缘之间的距离 (以磅为单位)。
           ' .MarginRight = 100
            '返回或设置文本框架顶部与包含文本的形状的内接矩形顶部之间的距离
           ' .MarginTop = 120
        End With
        '返回图表元素的阴影格式属性msoShadow1-20
        .Shadow.Type = msoShadow15
        MsgBox .Name
    End With
End Sub

代码截图：

代码的解读：（略）

代码的运行效果：


今日内容回向：
  1  Word中Shape对象的Name属性，Shadow属性和TextFrame 属性的意义是什么？
  2  如何利用VBA在当前文档中添加图形及文字，并设置阴影的填充？


本讲内容参考程序文件：Doc 009文档.docm


我20多年的VBA实践经验，全部浓缩在下面的各个教程及应用工具中：


【分享成果，随喜正能量】成长不是一蹴而就的事情，不以一时一事论成败。成长是贯穿一生的一个动态过程，要用科研的心态去面对，急不得。。


vbashadow
文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

评论