VBA Controls.Add 详解

Add 方法的语法包括以下成分:

成分 说明  
object 必需。一个有效对象名。  
Name 可选。指定被添加的对象的名称。如果没有指定名称,系统将根据使用该窗体的应用程序的规则,产生一默认的名称。  
Caption 可选。指定在标签或控件上出现的题注。如果没有指定题注,系统将根据使用该窗体的应用程序的规则,产生一默认的题注。  
index 可选。表示页或标签在 Pages 或 Tabs 集合中的位置。若没有规定索引,系统会将页或标签添加到 Pages 或 Tabs 集合的末尾,并赋于它相应的索引值。  
ProgID 必需。程序设计标识符。是用于标识对象类的、没有空格的文本串。ProgID 的标准语法是 <Vendor>.<Component>.<Version>。ProgID 会被映射为类标识符 (CLSID)。 
Visible 可选。若对象为可见的(这是默认方式)则为 True;若对象为隐藏的则为 False。  


设置

单个控件的 ProgID 值:

复选框 Forms.CheckBox.1  
组合框 Forms.ComboBox.1  
命令按钮 Forms.CommandButton.1  
框架 Forms.Frame.1  
图像 Forms.Image.1  
标签 Forms.Label.1  
列表框 Forms.ListBox.1  
多页 Forms.MultiPage.1  
选项按钮 Forms.OptionButton.1  
滚动条 Forms.ScrollBar.1  
数值调节钮 Forms.SpinButton.1  
TabStrip Forms.TabStrip.1  
文本框 Forms.TextBox.1  
切换按钮 Forms.ToggleButton.1  

### VBA Shapes.AddChart2 方法详解 #### Shapes.AddChart2 方法概述 `Shapes.AddChart2` 是 Excel VBA 中用于创建图表的一种方法。此方法允许指定更多选项来控制新图表的行为和外观,相较于 `AddChart` 提供了更丰富的功能集[^1]。 #### 函数签名与参数说明 ```vb expression.AddChart2(Style, ChartType, Left, Top, Width, Height, NewLayout, chartLocation) ``` - **Style**: 可选参数;Long 类型,默认值为0。代表应用的主题样式编号。 - **ChartType**: 必需参数;XlChartType 常量之一,定义要创建的图表类型。例如,`xl3DColumnClustered` 表示簇状三维柱形图。 - **Left**, **Top**, **Width**, **Height**: 这些都是可选参数,分别指定了图表左边缘、顶部位置以及宽度高度(单位为磅),默认情况下会自动调整尺寸适应页面布局。 - **NewLayout**: 可选布尔值,默认False。如果设为True,则使用新的布局算法重新计算图表内部元素的位置关系。 - **chartLocation**: 可选参数;枚举 XlChartLocation 的成员,决定图表放置方式。比如 `xlLocationAsObject` 将图表作为对象嵌入现有工作表内,而 `xlLocationAsNewSheet` 则会在一个新的独立的工作表中展示图表[^3]。 #### 实际案例演示 下面是一个具体的例子展示了如何利用 `Shapes.AddChart2` 创建一个带自定义样式的折线图: ```vb Sub CreateCustomLineChart() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") With ws.Shapes.AddChart2( _ Style:=138, _ ' 应用预置主题风格 ChartType:=xlLineMarkers, _ ' 设置图表种类为带有标记点的折线图 Left:=50, Top:=50, Width:=400, Height:=300, _ NewLayout:=True, _ ' 启用新版面设计 chartLocation:=xlLocationAsObject) .SetSourceData Source:=ws.Range("A1:B10") ' 设定数据源范围 ' 更改线条颜色和其他格式化操作... End With End Sub ``` 上述脚本首先设置了目标工作表变量 `ws` ,接着通过 `With...End With` 结构调用了 `Shapes.AddChart2()` 来构建所需类型的图表实例,并对其进行了初步配置,最后还指明了数据来源区间。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值