利用VBA添加图形对象

通常情况下,我们并不需要使用代码向工作表添加图形对象。根据图形对象的不同,添加的方法也不相同。
1.添加控件(“窗体”图形对象)
句法:object.Add(Left, Top, Width, Height)
object是工作表的下列成员之一:
Labels  标签
GroupBoxes 分组框
Buttons  按钮
CheckBoxes 复选框
OptionButtons 选项按钮
ListBoxes 列表框
DropDowns 组合框
ScrollBars 滚动条
Spinners 微调项
Left, Top, Width, Height分别指定新对象的初始坐标和初始大小(以磅为单位,下同)。
下面语句在工作表Sheet1上添加一个组合框:
Sheet1.DropDowns.Add 220.5, 147, 72, 22
2.添加直线(键头)
句法:object.AddLine(BeginX, BeginY, EndX, EndY)
object是工作表的Shapes 对象
BeginX, BeginY, EndX, EndY是直线的起点、终点位置。
下面语句在工作表Sheet1上添加一条直线:
Sheet1.Shapes.AddLine 100, 100, 180, 150
3.添加矩形、椭圆(圆)、自选图形
句法:object.AddShape(Type, Left, Top, Width, Height)
object是工作表的Shapes 对象
Type为MsoAutoShapeType 常量,指定要创建的自选图形的类型:
msoShapeRectangle(1) 矩形
msoShapeOval(9) 椭圆
未列出部分请参考对象留览器中MsoAutoShapeType的描述。下同。
下面语句在工作表Sheet1上添加一个椭圆:
Sheet1.Shapes. AddShape msoShapeOval , 100, 100, 180, 150
4.添加文本框
句法:object.AddTextbox(Orientation, Left, Top, Width, Height)
object是工作表的Shapes 对象
Orientation为MsoTextOrientation常量,文本框内文字的方向:
msoTextOrientationHorizontal(1) 横向
msoTextOrientationVerticalFarEast(4) 纵向
下面语句在工作表Sheet1上添加一个横向文本框:
Sheet1.Shapes. AddTextbox  msoTextOrientationHorizontal , 100, 100, 180, 150
5.添加艺术字
object.AddTextEffect(PresetTextEffect, Text, FontName, FontSize,FontBold, FontItalic, Left, Top) 句法:object是工作表的Shapes 对象
PresetTextEffect为MsoTextOrientation常量,预置的文字效果。可为msoTextEffect1至msoTextEffect30
Text艺术字对象中的文字。
FontName, FontSize,FontBold, FontItalic设置字体名称、大小、加粗和倾斜。
Left, Top给出艺术字对象所占矩形的左上角位置。
下面语句在工作表Sheet1上添加一个艺术字对象:
Sheet1.Shapes.AddTextEffect msoTextEffect27, “内容”, “宋体”, 36#, False, False, 82.5, 105
6.添加图片
句法:Sheetobject.Pictures.Insert picturefile
Sheetobject是要插入图片的工作表。
Picturefile是文件全路径。
下面语句在工作表Sheet1上添加一个图片:
Sheet1.Pictures.Insert “c:\My Document\Myfile.bmp”

分享到:

评论抢沙发

评论前必须登录!