多种对象

多种对象

该集合代表画布上的图形。

使用 CanvasShapes集合

使用Shape 或ShapeRange对象的CanvasItems属性可返回一个 CanvasShapes集合。若要在画布上添加图形,可使用 CanvasShapes集合的下列方法:AddCallout、AddConnector、AddCurve、AddLabel、AddLine、AddPicture、AddPolyline、AddShape、AddTextbox、AddTextEffect 或BuildFreeForm。下列示例在活动文档中添加画布,然后在画布上添加三个图形。

Sub AddCanvasShapes()

Dim shpCanvas As Shape

Dim shpCanvasShapes As CanvasShapes

Dim shpCnvItem As Shape

'Adds a new canvas to the document

Set shpCanvas = ActiveDocument.Shapes _

.AddCanvas(Left:=100, Top:=75, _

Width:=50, Height:=75)

Set shpCanvasShapes = shpCanvas.CanvasItems

'Adds shapes to the CanvasShapes collection

With shpCanvasShapes

.AddShape Type:=msoShapeRectangle, _

Left:=0, Top:=0, Width:=50, Height:=50

.AddShape Type:=msoShapeOval, _

Left:=5, Top:=5, Width:=40, Height:=40

.AddShape Type:=msoShapeIsoscelesTriangle, _

Left:=0, Top:=25, Width:=50, Height:=50

End With

End Sub

使用CanvasItems(index) 可返回 CanvasShapes集合中单独的图形,其中 index 为名称或索引序号。下列示例设置Line 和Fill属性,并垂直翻转画布中的第三个图形。

Sub CanvasShapeThree()

With ActiveDocument.Shapes(1).CanvasItems(3)

.Line.ForeColor.RGB = RGB(50, 0, 255)

.Fill.ForeColor.RGB = RGB(50, 0, 255)

.Flip msoFlipVertical

End With

End Sub

创建图形时将为其指定默认的名称。例如,如果在文档中添加三个不同的图形,他们可能分别命名为“矩形 2”、“文本框 3”和“椭圆 4”。若要引用图形的默认名称或为其指定一个更有意义的名称,请使用Name属性。

vba html 教程 pdf,Word VBA教程:CanvasShapes集合相关推荐

  1. android studio官方教程 pdf,android studio教程pdf

    android studio教程pdf [2021-02-13 02:22:01]  简介: php去除nbsp的方法:首先创建一个PHP代码示例文件:然后通过"preg_replace(& ...

  2. 计算机教程.pdf,中文电脑基础教程.pdf

    目录 前言 计算机基础操作 网页操作 中文输入法 教辅平台的使用 微信公众号的使用 如何向公众号发送消息 常用关键词 Moodle平台的使用 中文Office Word Excel PowerPoin ...

  3. 计算机 编程 教程 pdf,计算机专业教程-第3章编程接口介绍.pdf

    下载 第3章 编程接口介绍 • DB2 UDB应用程序概述 • 嵌入S Q L编程 • CLI/ODBC应用程序 • JAVA应用程序 • DAO .R D O .A D O应用程序 本章将介绍对DB ...

  4. linux cadence教程 pdf,cadence入门教程-修改版.pdf

    Introduction to Cadence Customer IC Design Environment 熊三星 徐太龙 编写 安徽大学电子信息工程学院微电子学系 1 目录 1. Linux 常用 ...

  5. 计算机英语教程第六版pdf,计算机英语教程.pdf

    计算机英语教程.pdf / 教育/学习 / 共享资料文件夹/计算机英语教程.pdf / 计算机英语教程.pdf / 2.82 MB {"\u8ba1\u7b97\u673a\u4e13\u4 ...

  6. 免费教程《Excel VBA:办公自动化》

    为了帮助你在职场中高效工作,我写了一本免费教程<Excel VBA:办公自动化>. 对,你没看错,是完全免费的,点击下面章节的名称就可以学习了. 1.认识VBA:什么是VBA? 知识点:介 ...

  7. 好用到爆的Python自动化办公教程pdf,Python × Excel × Word × PPT 一次搞定

    在这个自动化时代,我们有很多重复无聊的工作要做.想想这些你不再需要一次又一次地做的无聊的事情,让它自动化,让你的生活更轻松.那么在本文中,我将向您介绍一个好用到爆的Python自动化办公教程pdf,P ...

  8. 如何通过WPS将Word(doc、docx)转换为PDF格式的教程方法

    如何通过WPS将Word(doc.docx)转换为PDF格式的教程方法 作者:张国军_Suger 开发工具与关键技术:WPS         很多时候,有些朋友们不知道如何来通过WPS来讲Word(d ...

  9. PDF转换成Word图文教程

    PDF文件的不可轻易编辑的特点,可能会使得部分用户在如何修改PDF文件上花费大多时间.若是可以将PDF文件转换成可编辑的Word文件,无疑更为方便.以下是迅捷PDF转换器将PDF文件转换成Word图文 ...

  10. vba根据内容调整word表格_word表格技巧:如何对表格进行样式批处理

    编按:相信许多小伙伴都有过一次性需要编辑几十个甚至上百个表格的经历,当时可能就是一个个地调整,劳心劳力还劳神-今天小编就教大家2个Word VBA小技巧,几秒钟就能帮助大家搞定上百个表格,赶紧和小编一 ...

最新文章

  1. 在使用stl中的ifstream出错时如何快速排错?
  2. 在nginx上部署vue项目(history模式);
  3. 剔除重复_微服务发生故障后,我是如何做到自动剔除异常的Server?
  4. python自动化办公:文件篇(自动整理文件,一键完成)
  5. mysql主从同步从库上Slave_IO_Running: Connecting问题
  6. QMsgPack的用法DEMO
  7. dotNET Core实现分布式环境下的流水号唯一
  8. 【TensorFlow】TensorFlow从浅入深系列之十一 -- 教你深入理解卷积神经网络中的卷积层
  9. ds6708 symbol 驱动_Symbol DS6708扫描器
  10. 用busybox制作文件系统
  11. 清华山维eps软件_6款倾斜摄影裸眼3D采集软件 | 推荐给大家
  12. bat脚本一键配置java开发环境
  13. Linux显卡fps性能测试,如何检测应用帧率-FPS测试
  14. 一次完整的 Http 请求过程
  15. AlphaZero问世:8小时完爆围棋、国际象棋、日本将棋(转)
  16. Python:打印九九乘法口诀表
  17. 学渣的刷题之旅 leetcode刷题 3. 无重复字符的最长子串(暴力法、滑动窗口)
  18. Android Studio中如何添加Vector Asset
  19. NSGA-II算法阅读笔记
  20. 浅谈git rebase命令 -- git修改历史提交信息

热门文章

  1. SAP 独立系统的传输请求
  2. 解决安全频道支持出错,代码:80072F7D问题
  3. 在线表单收集系统Tduck(docker篇)
  4. 基于javaweb的学生考勤管理系统(java+SSM+Poi导出+Easyui+JFreeChart+maven+mysql)
  5. 中国车牌数据集以及车牌识别代码
  6. 玩转USB HID系列:USB先导知识简明
  7. c语言上机题库大一,C语言上机题库(一).doc
  8. ofo生死局:拿什么续命?
  9. 书籍推荐《区块链技术指南》
  10. java7 32位官方下载_【java7】64位+32位官方下载