没有合适的资源?快使用搜索试试~ 我知道了~
首页vba shape chart使用实例
资源详情
资源推荐
VBA 常用技巧代码解析
VBA 常用技巧
目录
VBA 常用技巧....................................................................................................................................1
第 4 章 Shape(图形)、Chart(图表)对象.......................................................................2
技巧 1 在工作表中添加图形...........................................................................................2
技巧 2 导出工作表中的图片...........................................................................................7
技巧 3 在工作表中添加艺术字.......................................................................................9
技巧 4 遍历工作表中的图形.........................................................................................11
技巧 5 移动、旋转图片.................................................................................................13
技巧 6 工作表中自动插入图片.....................................................................................15
技巧 7 固定工作表中图形的位置.................................................................................17
技巧 8 使用 VBA 自动生成图表...................................................................................19
技巧 9 使用独立窗口显示图表.....................................................................................23
技巧 10 导出工作表中的图表.......................................................................................24
技巧 11 多图表制作.......................................................................................................25
1
VBA 常用技巧代码解析
第4章 Shape(图形)、Chart(图表)对象
技巧1 在工作表中添加图形
如果需要在工作表中添加图形对象,可以使用 AddShape 方法,如下面的代码所示。
#001 Sub AddShape()
#002 Dim myShape As Shape
#003 On Error Resume Next
#004 Sheet1.Shapes("myShape").Delete
#005 Set myShape = Sheet1.Shapes.AddShape(msoShapeRectangle, 40,
120, 280, 30)
#006 With myShape
#007 .Name = "myShape"
#008 With .TextFrame.Characters
#009 .Text = "单击将选择 Sheet2!"
#010 With .Font
#011 .Name = "华文行楷"
#012 .FontStyle = "常规"
#013 .Size = 22
#014 .ColorIndex = 7
#015 End With
#016 End With
#017 With .TextFrame
#018 .HorizontalAlignment = -4108
#019 .VerticalAlignment = -4108
#020 End With
2
VBA 常用技巧代码解析
#021 .Placement = 3
#022 End With
#023 myShape.Select
#024 With Selection.ShapeRange
#025 With .Line
#026 .Weight = 1
#027 .DashStyle = msoLineSolid
#028 .Style = msoLineSingle
#029 .Transparency = 0
#030 .Visible = msoTrue
#031 .ForeColor.SchemeColor = 40
#032 .BackColor.RGB = RGB(255, 255, 255)
#033 End With
#034 With .Fill
#035 .Transparency = 0
#036 .Visible = msoTrue
#037 .ForeColor.SchemeColor = 41
#038 .OneColorGradient 1, 4, 0.23
#039 End With
#040 End With
#041 Sheet1.Range("A1").Select
#042 Sheet1.Hyperlinks.Add Anchor:=myShape, Address:="", _
#043 SubAddress:="Sheet2!A1", ScreenTip:="选择 Sheet2!"
#044 Set myShape = Nothing
#045 End Sub
代码解析:
AddShape 过程在工作表中添加一个矩形并设置其外观等属性。
第 2 行代码声明变量 myShape 的对象类型。
第 3、4 行代码删除可能存在的名称为“myShape”的图形对象。
第 5 行代码使用 AddShape 方法在工作表中添加一个矩形。当该方法应用于 Shapes
对象时,返回一个 Shape 对象,该对象代表工作表中的新自选图形,语法如下:
expression.AddShape(Type, Left, Top, Width, Height)
3
VBA 常用技巧代码解析
参数 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 对象的表达式。
参数 Start 是可选的,表示将要返回的第一个字符,如果此参数设置为 1 或被忽略,
则 Characters 方法会返回以第一个字符为起始字符的字符区域。
参数 Length 是可选的,表示要返回的字符个数。如果此参数被忽略,则 Characters
方法会返回该字符串的剩余部分(由 Start 参数指定的字符以后的所有字符)。
第 9 行代码为矩形添加文字,应用于 Characters 对象的 Text 属性返回或设置对象的文
本,为可读写的 String 类型。
第 10 行到第 15 行代码设置矩形中文字的属性,应用于 Characters 对象 Font 属性返
回一个 Font 对象,该对象代表指定对象的字体属性(字体名称、字体大小、字体颜色等),
第 11 行代码设置字体名称,第 12 行代码设置字体样式,第 13 行代码设置字体大小,第
14 行代码颜色。
第 17 行到第 20 行代码设定矩形中 文 字 的对齐方 式 。 应用于 TextFrame 对象的
HorizontalAlignment 属性返回或设置指定对象的水平对齐方式,可为表格 53 -1 所示的
XlHAlign 常量之一。
常量 值 描述
xlHAlignCenter -4108
居中
xlHAlignCenterAcrossSelection 7
靠左
xlHAlignDistributed -4117
分散对齐
xlHAlignFill 5
分散对齐
xlHAlignGeneral 1
靠左
xlHAlignJustify -4130
两端对齐
xlHAlignLeft -4131
靠左
4
VBA 常用技巧代码解析
xlHAlignRight -4152
靠右
表格 53-1 HorizontalAlignment 属性的 XlHAlign 常量
应用于 TextFrame 对象的 VerticalAlignment 属性返回或设置指定对象的垂直对齐方式,
可为表格 53 -2 所示的 XlHAlign 常量之一。
常量 值 描述
xlVAlignCenter -4108
居中
xlVAlignJustify -4130
两端对齐
xlVAlignBottom -4107
靠下
xlVAlignDistributed -4117
分散对齐
xlVAlignTop -4160
靠上
表格 53-2 VerticalAlignment 属性的 XlHAlign 常量
第 21 行代码设置矩形大小和位置不随单元格而变,应用于 Shape 对象的 Placement
属 性 返 回 或 设 置 对 象 与 所 在 的 单 元 格 之 间 的 附 属 关 系 , 可 为 表 格 53 -3 所 示 的
XlPlacement 常量之一。
常量 值 描述
xlFreeFloating 3
大小、位置均固定
xlMove 2
大小固定、位置随单元格而变
xlMoveAndSize 1
大小、位置随单元格而变
表格 53-3 XlPlacement 常量
第 24 行到第 32 行代码设置矩形的边框线条格式,应用于 ShapeRange 集合的 Line 属
性返回一个 LineFormat 对象,该对象包含指定图形的线条格式属性。
其中第 26 行代码设置矩形线条粗细,第 27 行代码设置矩形线条的虚线样式,第 28 行
代码设置矩形填充的透明度,第 29 行代码设置矩形为可见,第 30 行代码设置矩形的前景
色,第 31 行代码设置矩形填充背景的颜色。
第 33 行到第 38 行代码设置矩形的内部填充格式,应用于 ShapeRange 集合的 Fill 属
性返回 FillFormat 对象,该对象包含指定的图表或图形的填充格式属性。
其中第 35 行代码设置矩形内部的透明度,第 36 行代码设置矩形内部为可见,第 37 行
代码设置矩形内部的前景色,第 38 行代码将矩形内部指定填充设为单色渐变,应用于
FillFormat 对象的 OneColorGradient 方法将指定填充设为单色渐变,语法如下:
expression.OneColorGradient(Style, Variant, Degree)
其中参数 Style 是必需的,底纹样式,可为表格 54 -5 所示的 MsoGradientStyle 常量
之一。
常量 值 描述
5
剩余27页未读,继续阅读
ustbyanyan
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- zigbee-cluster-library-specification
- JSBSim Reference Manual
- c++校园超市商品信息管理系统课程设计说明书(含源代码) (2).pdf
- 建筑供配电系统相关课件.pptx
- 企业管理规章制度及管理模式.doc
- vb打开摄像头.doc
- 云计算-可信计算中认证协议改进方案.pdf
- [详细完整版]单片机编程4.ppt
- c语言常用算法.pdf
- c++经典程序代码大全.pdf
- 单片机数字时钟资料.doc
- 11项目管理前沿1.0.pptx
- 基于ssm的“魅力”繁峙宣传网站的设计与实现论文.doc
- 智慧交通综合解决方案.pptx
- 建筑防潮设计-PowerPointPresentati.pptx
- SPC统计过程控制程序.pptx
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功