ExcelVBA实例教程053在工作表中添加图形.docVIP

下载本文档

11
0
约4.66千字
约 3页
2017-04-24 发布于重庆
举报
版权申诉

ExcelVBA实例教程053在工作表中添加图形.doc

1、本文档共3页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

ExcelVBA实例教程053在工作表中添加图形

本文由2583774贡献 doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。如果需要在工作表中添加图形对象，可以使用 AddShape 方法，如下面的代码所示。 1. Sub AddShape() 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. Dim myShape As Shape On Error Resume Next Sheet1.Shapes(myShape).Delete Set myShape = Sheet1.Shapes.AddShape(msoShapeRectangle, 40, 120, 280, 30) With myShape .Name = myShape With .TextFrame.Characters .Text = 单击将选择 Sheet2! With .Font .Name = 华文行楷 .FontStyle = 常规 .Size = 22 .ColorIndex = 7 End With End With With .TextFrame .HorizontalAlignment = -4108 .VerticalAlignment = -4108 End With .Placement = 3 End With myShape.Select With Selection.ShapeRange With .Line .Weight = 1 .DashStyle = msoLineSolid .Style = msoLineSingle .Transparency = 0 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. .Visible = msoTrue .ForeColor.SchemeColor = 40 .BackColor.RGB = RGB(255, 255, 255) End With With .Fill .Transparency = 0 .Visible = msoTrue .ForeColor.SchemeColor = 41 .OneColorGradient 1, 4, 0.23 End With End With Sheet1.Range(A1).Select Sheet1.Hyperlinks.Add Anchor:=myShape, Address:=, _ SubAddress:=Sheet2!A1, ScreenTip:=选择 Sheet2! Set myShape = Nothing 45. End Sub 代码解析： AddShape 过程在工作表中添加一个矩形并设置其外观等属性。第 2 行代码声明变量 myShape 的对象类型。第 3、4 行代码删除可能存在的名称为“myShape”的图形对象。第 5 行代码使用 AddShape 方法在工作表中添加一个矩形。当该方法应用于 Shapes 对象时，返回一个 Shape 对象，该对象代表工作表中的新自选图形，语法如下： expression.AddShape(Type, Left, Top, Width, Height) 参数 expression 是必需的，返回一个 Shapes 对象。参数 Type 是必需的，指定要创建的自选图形的类型。参数 Left 和 Top 是必需的，以磅为单位给出自选图形边框左上角的位置。参数 Width 和 Height 是必需的，以磅为单位给出自选图形边框的宽度和高度。第 7 行代码将新建图形命名为“myShape”，向 Shapes 集合添加新的图形时，将对新添加的图形赋以默认的名称，若要为图形指定更有意义的名称，可指定其 Name 属性。第 8 行到第 16 行代码为矩形添加文字，并设定其格式。其中第 8 行代码使用 TextFrame 属性和 Characters 方法返回该矩形的字符区域。应用于 Shape 对象的 TextFrame 属性返回一个 TextFrame 对象，该对象包含指定图形对象的对齐和定位属性；Characters 方法返回一个 Characters 对象，该对象代表某个图形的文本框中的字符区域，语法如下： expression.Characters(Start, Length) 参数 expression 是必需的，返回一个指定文本框内 Characters 对象的表达式。