适用于
Range 对象
描述
依据输入值和工作表上定义的公式创建数据表。
句法
expression.Table(RowInput, ColumnInput)
expression
必选。该表达式返回”适用于”列表中的对象。
RowInput
Variant 类型，可选。用作数据表行输入的单个单元格。
ColumnInput
Variant 类型，可选。用作数据表列输入的单个单元格。
说明
使用数据表，通过改变工作表上特定常量的值，并观察其它单元格相应的变化情况，可进行假设分析。
示例
本示例在工作表“Sheet1”的单元格区域“A1:K11”中创建带格式的乘法表。
Set dataTableRange = Worksheets("Sheet1").Range("A1:K11")
Set rowInputCell = Worksheets("Sheet1").Range("A12")
Set columnInputCell = Worksheets("Sheet1").Range("A13")
Worksheets("Sheet1").Range("A1").Formula = "=A12*A13"
For i = 2 To 11
Worksheets("Sheet1").Cells(i, 1) = i - 1
Worksheets("Sheet1").Cells(1, i) = i - 1
Next I
dataTableRange.Table rowInputCell,
columnInputCellWith Worksheets("Sheet1").Range("A1").CurrentRegion.
Rows(1).Font.Bold = True
.Columns(1).Font.Bold = True
.Columns.AutoFit
End With
适用于
PivotTable 对象
描述
返回 Range 对象，该对象代表包含整个数据透视表的区域，但页字段除外。
只读。
说明
TableRange2 属性包括页字段。
示例
本示例选定整个数据透视表，但页字段除外。
Worksheets("Sheet1").ActivateRange
("A3").PivotTable.TableRange1.Select
适用于
PivotTable 对象
描述
返回 Range 对象，该对象代表包含整个数据透视表的区域，包括页字段。
只读。
说明
TableRange1 属性不包括页字段。
示例
本示例选定整个数据透视表，包括页字段。
Worksheets("Sheet1").Activate
Range("A3").PivotTable.TableRange2.Select
适用于
PivotTable 对象
描述
返回或设置用于数据透视表中的样式。默认值为 null 字符串（默认时无样式）。
String 类型，可读写。
说明
此样式用作背景区域的默认样式，并且在用户指定格式前起作用。
示例
本示例将数据透视表设为 PurpleAndGold 样式。
Worksheets(1).PivotTables("Pivot1").TableStyle = "PurpleAndGold"
适用于
Window 对象
描述
返回或者设置窗口工作簿中工作表标签宽度与窗口水平滚动条宽度比例（可为 0（零）和 1 之间的数字；默认值为 0.75）。Double 类型，可读写。
说明
如果 DisplayWorkbookTabs 设为 False，则本属性不起作用（保留其值，但该值不影响屏幕显示）。
另见
DisplayHorizontalScrollBar 属性， DisplayWorkbookTabs 属性
示例
本示例将工作簿窗口中工作表选项卡设为水平滚动栏宽度的一半。
ActiveWindow.TabRatio = 0.5
适用于
PivotTable 对象
描述
返回或设置随数据透视表存储的一个字符串。String 类型，可读写。
示例
本示例设置数据透视表的 Tag 属性。
Worksheets(1).PivotTables("Pivot1").Tag = "Product Sales by Region"
适用于
Workbook 对象
描述
如果工作簿保存为模板时删除所有外部数据引用则为 True。Boolean 类型，可读写。
示例
本示例将指定工作簿保存为模板，删除其中的外部数据。
With ThisWorkbook
.TemplateRemoveExtData = True.
SaveAs "current", xlTemplate
.TemplateRemoveExtData = False
End With
适用于
Application 对象
描述
返回模板所在的本地路径。String 类型，只读。
示例
本示例返回模板所在的本地路径。
Msgbox Application.TemplatesPath
适用于
Comment 对象，WorksheetFunction 对象
描述
设置批注文字。
句法
expression.Text(Text, Start, Overwrite)
expression
必选。该表达式返回一个 Comment 对象。
Text
Variant 类型，可选。要添加的文字。
Start
Variant 类型，可选。要添加的文字的起始位置（字符数）。如果省略该参数，则删除所有现有的文字。
Overwrite
Variant 类型，可选。如果为 True 则覆盖现有的文字，默认值为 False（新文字插入到现有文字中）。
示例
本示例为第一张工作表中的 E5 单元格添加批注。
With Worksheets(1).Range("e5").AddComment
.Visible = False
.Text "reviewed on " & 日期
End With
适用于
AxisTitle 对象，Charaters 对象，ChartTitle 对象，DataLabel 对象，DisplayUnitLabel 对象，Phonetic 对象，Phonetics 集合对象，Range 对象，TextEffectFormat 对象
描述
返回或设置指定对象的文本。对于 Range 对象，本属性为只读的 String 类型，对于其它对象，本属性为可读写的 String 类型。
说明
对于Phonetic 对象，本属性返回或设置其语音文本（phonetic text）。此属性不能设置为Null。
示例
本示例设置图表“Chart1”的图表标题文本。
With Charts("Chart1")
.HasTitle = True
.ChartTitle.Text = "First Quarter Sales"
End With
本示例设置图表“Chart1”中的分类轴标题文本。
With Charts("Chart1").Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "Month"
End With
本示例演示含有带格式数字的单元格的 Text 和 Value 属性的不同句法。
Set c = Worksheets("工作表1").Range("B14")
c.Value = 1198.3
c.NumberFormat = "$#,##0_);($#,##0)"
MsgBox c.Value
MsgBox c.Text
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 TextEffectFormat 对象，该对象包含指定形状的文字效果格式属性。
应用于代表艺术字对象的 Shape 或 ShapeRange 对象。只读。
示例
如果 myDocument 中的第三个形状是艺术字(WordArt)对象，本示例就将该对象的字型加粗。
Set myDocument = Worksheets(1)
With myDocument.Shapes(3)
If .Type = msoTextEffect Then
.TextEffect.FontBold = True
End If
End With
描述
包含应用于艺术字对象的属性和方法。
使用TextEffectFormat 对象
可用 TextEffect 属性返回 TextEffectFormat 对象。下例设置 myDocument中的第一个形状的字体格式。为使本示例正常运行，第一个形状必须是艺术字对象。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).TextEffect
.FontName = "Courier New"
.FontBold = True
.FontItalic = True
End With
属性
Alignment 属性，Application 属性，Creator 属性，FontBold 属性，FontItalic 属性，FontName属性，FontSize 属性，KernedPairs 属性，NormalizedHeight 属性，Parent 属性，PresetShape 属性，PresetTextEffect属性，RotatedChars 属性，Text 属性，Tracking 属性
方法
ToggleVerticalText 方法
适用于
QueryTable 对象
描述
返回或设置一个排序的常量数组，用于指定文本文件中相应列的数据类型，而该文本文件则是正要导入查询表中的文本文件。每一列的默认常量为xlGeneral。可读写。Variant 类型。
可以使用下表列出的 xlColumnDataType 常量指定在数据导入过程中所使用的列数据类型或执行的操作。
| 常量 | 说明 |
| xlGeneralFormat | 通用 |
| xlDMYFormatDMY | 日期 |
| xlDYMFormatDYM | 日期 |
| xlEMDFormatEMD | 日期 |
| xlMDYFormatMDY | 日期 |
| xlMYDFormatMYD | 日期 |
| xlSkipColumn | 跳过列 |
| xlTextFormat | 文本 |
| xlYDMFormat | YDM日期 |
| xlYMDFormat | YMD日期 |
说明
只有当查询表是基于文本文件中的数据时，才使用本属性（此时 QueryType属性应设置为 xlTextImport）。
如果在含有多列的数组中指定了多个元素，则那些值将会忽略。
只有当安装和选择了支持台湾地区的语言时才可使用 xlEMDFormat。xlEMDFormat 常量用于指定正在使用台湾纪元日期。
示例
本示例输入固定宽的文本文件到第一个工作簿的第一个工作表中的新查询表。在文本文件中的第一列有五个字符宽并且作为文本输入。第二列有四个字符宽且被忽略。输入文本文件中剩余部分到第三列并且在这里使用普通格式。
Set shFirstQsr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables_
.Add(Connection : ="TEXT;C:\My Documents\19980331.txt",_
Destination : = shFirstQtr.Cells (1,1))
With qtQtrResults
.TextFileParseType = xlFixedWidth
.TextFileFixedColumnWidths = Array (5,4)
.TextFileColumnDataTypes =_
Array(xlTextFormat,xlSkipColumn,xlGeneralFormat)
.Refresh
End With
适用于
QueryTable 对象
描述
如果将文本文件导入查询表中时，以逗号作为分隔符，则为 True。如果以其它字符作为分隔符，则为 False。默认值为 False。可读写。Boolean 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport）且 TextFileParseType 属性值为 xlDelimited 时，才使用本属性。
示例
本示例将第一个工作簿中第一张工作表上的查询表的分隔符设置为逗号，然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
TextFileConsecutiveDelimiter 属性
适用于
QueryTable 对象
描述
当向查询表中导入文本文件时，如果将连续分隔符看作是一个分隔符，则其值为 True。 默认值为 False。可读写。Boolean 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport），并且 TextFileParseType 属性值为 xlDelimited 时，才使用本属性。
示例
本示例将第一个工作簿中第一张工作表上的查询表的分隔符设置为空格字符，然后刷新该查询表。连续的空格被当作单个分隔符处理。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileSpaceDelimiter = True
.TextFileConsecutiveDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置十位分隔符，在将文本文件导入查询表中时，Microsoft Excel 将使用十位分隔符。可读写。String 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport）且该文件中包含的十位和千位分隔符与计算机上所使用的分隔符不同时，才使用本属性。
下表显示：当使用不同分隔符向 Microsoft Excel 中导入文本时所产生的不同结果。数字结果会显示在最右端的列中。
| 系统十位分隔符 | 系统千位分隔符 | TextFileDecimalSeparator值 | TextFileThousandsSeparator 值 | 导入的文本 | 单元格的值（数据类型） |
| 句点 | 逗号 | 逗号 | 句点 | 123.123,45 | 123,123.45（数字） |
| 句点 | 逗号 | 逗号 | 逗号 | 123.123,45 | 123.123,45（文本） |
| 逗号 | 句点 | 逗号 | 句点 | 123,123.45 | 123,123.45（数字） |
| 句点 | 逗号 | 句点 | 逗号 | 123 123.45 | 123 123.45（文本） |
| 句点 | 逗号 | 句点 | 空格 | 123 123.45 | 123,123.45（数字） |
示例
本示例为工作表“Sheet1”保存最初的十位分隔符，并将其设置为逗号，以准备将一个法语（比方说）文本文件导入美国英语版的 Microsoft Excel 中。
strDecSep = Worksheets("Sheet1").QueryTables(1)
_ .TextFileDecimalSeparator
Worksheets("Sheet1").QueryTables(1) _
.TextFileDecimalSeparator = ","
适用于
QueryTable 对象
描述
返回或设置一个整数数组，该数组对应于正要向查询表中导入的文本文件的列宽（单位用字符表示）。有效的宽度为从 1 到 32767 个字符。可读写。
Variant 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport），并且 TextFileParseType 属性值为 xlFixedWidth 时，才使用本属性。
必须指定一个有效的非负值列宽。如果指定的列超出了文本文件的宽度，则会忽略那些值。如果文本文件的宽度大于指定的列的总宽度，则文本文件的剩余部分将会导入到一个附加列中。
示例
本示例向第一个工作表（第一个工作簿中）的新查询表中导入一个固定宽度的文本文件。该文本文件的第一列为五个字符宽度，作为文本导入。第二列为四个字符宽度，被跳过。该文本文件的剩余部分被导入第三列，并对其应用通用格式。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlFixedWidth
.TextFileFixedColumnWidths = Array(5, 4)
.TextFileColumnDataTypes = _
Array(xlTextFormat, xlSkipColumn, xlGeneralFormat)
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置在向查询表中导入文本文件时作为分隔符使用的字符。默认值为 Null。可读写。String 类型。
说明
只有当查询表是基于文本文件数据（此时 QueryType 属性设置为xlTextImport），并且 TextFileParseType 属性值为 xlDelimited 时，才使用本属性。
如果在字符串中指定了多个字符，则只使用第一个字符。
示例
本示例将第一张工作表（第一个工作簿中）上查询表的分隔符设置为井号(#)，然后刷新该查询表。
Set shFirstQtr = Workbooks(1)
.Worksheets(1)Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileOtherDelimiter = "#"
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置正向查询表中导入的文本文件中数据列的格式。可以为下列XlTextParsingType 常量之一：xlDelimited（表明文件由分隔符分隔）或xlFixedWidth（表明以固定宽度的列来组织文件中的数据）。默认值为xlDelimited。 可读写。XlTextParsingType 类型。
说明
只有当查询表是基于文本文件中的数据时（此时 QueryType 属性设置为xlTextImport）才使用本属性。
示例
本示例向第一个工作表（第一个工作簿中）的新查询表中导入一个固定宽度的文本文件。该文本文件的第一列为五个字符宽度，作为文本导入。第二列为四个字符宽度，被跳过。该文本文件的剩余部分被导入第三列，并对其应用通用格式。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1, 1))
With qtQtrResults
.TextFileParseType = xlFixedWidth
.TextFileFixedColumnWidths = Array(5, 4)
.TextFileColumnDataTypes = _
Array(xlTextFormat, xlSkipColumn, xlGeneralFormat)
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置正向查询表中导入的文本文件的原始格式。本属性确定在数据导入过程中使用何种代码页。可以为下列 XlPlatform 常量之一：
xlMacintosh，xlMSDOS 或 xlWindows。默认值是在“文本文件导入向导”的“文件原始格式”选项中的当前设置。可读写。XlPlatform 类型。
说明
只有当查询表是基于文本文件的数据时（此时 QueryType 属性设置为xlTextImport）才使用本属性。
示例
本示例向第一张工作表（第一个工作簿中）的查询表中导入一个 MS-DOS 文本文件，然后刷新该查询表。
Set shFirstQtr = Workbooks(1)
.Worksheets(1)Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFilePlatform = xlMSDOS
.TextFileParseType = xlDelimited
.TextFileTabDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
如果每次刷新查询表时都要指定导入文本文件的名称，则其值为 True。“导入文本文件”对话框允许用户指定路径和文件名。默认值为 False。可读写。Boolean 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport）时，才使用本属性。
如果本属性为 True，则第一次刷新查询表时，并不显示对话框。
在用户界面中，其默认值为 True。
示例
本示例在每次刷新第一个工作簿上第一张工作表的查询表时，都提示用户输入文本文件的名称。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFilePromptOnRefresh = True
.TextFileTabDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
如果向查询表中导入文本文件时使用分号作为分隔符，且TextFileParseType 属性为 xlDelimited 时，其值为 True。默认值为 False。可读写。Boolean 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport）时，才使用本属性。
示例
本示例将第一个工作簿中第一张工作表上查询表的分隔符设置为分号，然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileSemicolonDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
如果向查询表中导入文本文件时，使用空格字符作为分隔符，则其值为True。默认值为 False。可读写。Boolean 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport），并且 TextFileParseType 属性值为 xlDelimited 时，才可使用本属性。
示例
本示例将空格字符设置为第一个工作表（第一个工作簿中）上的查询表的分隔符，然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileSpaceDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置向查询表中导入文本文件时进行文本分列的起始行号。其有效值为从 1 到 32767 之间的整数。默认值为 1。可读写。Long 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport）时，才可使用本属性。
示例
本示例将第一张工作表（第一个工作簿中）上查询表的文本分列起始行设置为第五行，然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
TextFileParseType = xlDelimited
.TextFileStartRow = 5
.TextFileTabDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
如果向查询表中导入文本文件时使用 TAB 键作为分隔符，则其值为True。默认值为 False。可读写。Boolean 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport），并且 TextFileParseType 属性值为 xlDelimited 时，才使用本属性。
示例
本示例将第一张工作表（第一个工作簿中）上查询表的分隔符设置为 TAB键，然后刷新该查询表。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileTabDelimiter = True
.Refresh
End With
适用于
QueryTable 对象
描述
返回或设置向查询表中导入文本文件时的文本识别符号。文本识别符号用于指定包含的数据是文本格式。可以为下列 XlTextQualifier 常量之一：
xlTextQualifierDoubleQuote，xlTextQualifierNone或xlTextQualifierSingleQuote。默认常量为 xlTextQualifierDoubleQuote。可读写。XlTextQualifier 类型。
说明
只有当查询表是基于文本文件中的数据时（此时QueryType 属性设置为xlTextImport），才使用本属性。
示例
本示例将第一张工作表（第一个工作簿中）上查询表的文本识别符号设置为单引号。
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables _
.Add(Connection := "TEXT;C:\My Documents\19980331.txt", _
Destination := shFirstQtr.Cells(1,1))
With qtQtrResults
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierSingleQuote
.Refresh
End With
适用于
QueryTable对象
描述
返回或设置向查询表中导入文本文件时 Microsoft Excel 所使用的千位分隔符。可读写。String 类型。
说明
只有当查询表是基于文本文件中的数据（此时 QueryType 属性设置为xlTextImport），特别是当文本文件中由于语言设置的不同而导致具有与计算机上不同的十位或千位分隔符时，才使用本属性。
下表显示当使用不同分隔符向 Microsoft Excel 中导入文本时得到的不同结果。数字结果显示在最右边的列中。
| 系统十位分隔符 | 系统千位分隔符 | TextFileDecimalSeparator值 | TextFileThousandsSeparator 值 | 导入的文本 | 单元格的值（数据类型） |
| 句点 | 逗号 | 逗号 | 句点 | 123.123,45 | 123,123.45（数字） |
| 句点 | 逗号 | 逗号 | 逗号 | 123.123,45 | 123.123,45（文本） |
| 逗号 | 句点 | 逗号 | 句点 | 123,123.45 | 123,123.45（数字） |
| 句点 | 逗号 | 句点 | 逗号 | 123 123.45 | 123 123.45（文本） |
| 句点 | 逗号 | 句点 | 空格 | 123 123.45 | 123,123.45（数字） |
示例
本示例保存工作表“Sheet1”上第一个查询表最初的千位分隔符，并将其设置为句点，以准备将法语文本文件（比方说）导入美国英语版的 MicrosoftExcel 中。strDecSep = Worksheets("Sheet1").QueryTables(1) _ .TextFileThousandsSeparator Worksheets("Sheet1").QueryTables(1)_ .TextFileThousandsSeparator = "."
描述
代表一个Shape 对象的文本框。包括文本框中的文本以及文本框中控制对齐和定位的属性和方法。
使用TextFrame 对象
用TextFrame 属性返回一个TextFrame 对象。下面的例子为myDocument添加一个矩形框，再为矩形框添加文本，最后为文本框设置页边范围。
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
0, 0, 250, 140).TextFrame
.Characters.Text = "Here is some test text"
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
属性
Application 属性，AutoMargins 属性，AutoSize 属性，Creator 属性，HorizontalAlignment 属性，MarginBottom 属性，MarginLeft 属性，MarginRight 属性，MarginTop 属性，Orientation 属性，Parent 属性，ReadingOrder 属性，VerticalAlignment 属性
方法
Characters 方法
适用于
Shape 对象，ShapeRange 集合对象
描述
返回一个 TextFrame 对象，该对象包含指定形状的对齐和定位属性。只读。
示例
本示例设置第一个形状中的文本框的调整方式。如果第一个形状中不包含文本框则本示例无效。Worksheets(1).Shapes(1).TextFrame _.HorizontalAlignment = xlHAlignJustify
适用于
Range 对象
描述
将包含有文本的单元格组成的一列分成几列。
句法
expression.TextToColumns(Destination,DataType,TextQualifier,ConsecutiveDelimiter,
Tab,Semicolon,Comma,Space,Other,OtherChar,FieldInfo,DecimalSeparator,ThousandsSeparator)
expression
必选。该表达式返回一个 Range对象。
Destination
Variant 类型，可选。一个Range 对象，指定Microsoft Excel 放置结果的地方。如果范围大于一个单元格，左上方的单元格被占用。
DataType
Variant 类型，可选。将被分成列的文本的格式。可为以下XlTextParsingType
常量之一：: xlDelimited 或者 xlFixedWidth。默认值为 xlDelimited。
TextQualifier
Variant 类型，可选。文本限定符。可为以下XlTextQualifier 常量之一：
:xlTextQualifierDoubleQuote, xlTextQualifierSingleQuote,或者xlTextQualifierNone. 默认值为 xlTextQualifierDoubleQuote。
ConsecutiveDelimiter
Variant 类型，可选。将连续的分界符作为一个分界符时为True。默认值为False。Tab
Variant 类型，可选。DataType 为xlDelimited 并且制表符为分界符时为True。默认值为False。
Semicolon
Variant 类型，可选。DataType 为xlDelimited 并且分号为分界符时为True。默认值为False。
Comma
Variant 类型，可选。DataType 为xlDelimited 并且逗号为分界符时为True。默认值为False。
Space
Variant 类型，可选。DataType 为xlDelimited 并且空格为分界符时为True。默认值为False。
Other
Variant 类型，可选。DataType 为xlDelimited 并且由OtherChar 变元指定的字符作为分界符时为True。默认值为False。
OtherChar
Variant 类型，可选。(如果Other 为True，则必需)。当Other为True时的分界符。如果指定字符不只一个，则只用字符串的第一个字符，其余字符被忽略。
FieldInfo
Variant 类型，可选。一个数组，包含指定数据列的信息。译码由DataType的值决定。
当数据被定义后，此变量为一个二元数组组成的数组，每个二元数组为一个特殊列指定换算选项。第一个元素指定列数（基数为一），第二个为xlColumnDataType常量之一（见下表），用以指定分列方式。
| 常量 | 描述 |
| xlDMYFormatDMY | 日期 |
| xlDYMFormatDYM | 日期 |
| xlEMDFormat | EMD 日期 |
| xlGeneralFormat | 通用 |
| xlMYDFormat | MYD 日期 |
| xlMDYFormat | |
| xlSkipColumn | 跳过列 |
| xlTextFormat | 文本 |
| xlYMDFormat | YMD 日期 |
| xlYDMFormat |
只有安装并选用了繁体中文时，xlEMDFormat才可用。XlEMDFormat 常量指定繁体中文的版本。
列分界符可有各种顺序，如果在输入数据中未对某列指定列分界符，则分列由General 设置决定。下面的例子将跳过第三列，第一列作为文本被划分，数据源中其余列由General 设置决定。
Array(Array(3, 9), Array(1, 2))
如果数据源中列为固定宽，则每个二元数组的第一个元素指定列中起始字符的位置（如为整数，0为起始字符）。第二个元素指定分列选项，如上面的列表所示。下面的例子 从一个固定宽度的文件中分出两列，前九个字符为第一列，从第十五个字符到最后一个字符为第二列。为避免包括第十至第十五个字符，Microsoft Excel 加入了一个跳入列项。
Array(Array(0, 1), Array(10, 9), Array(15, 1))
DecimalSeparator
String类型，可选的。当识别数字时，Microsoft Excel 所用的十位分离符。默认设置为系统设置。
ThousandsSeparatorString
类型，可选的。当识别数字时，Microsoft Excel 所用的千位分离符。默认设置为系统设置。
下表显示了对不同的输入设置，输入文本至Excel的结果。数字化的结果显示于最右列。
| 系统十位分离符 | 系统千位分离符 | 十位分离符取值 | 千位分离符取值 | 原始文本 | 单元格取值（数据类型） |
| 句号 | 逗号 | 逗号 | 句号 | 123.123,45 | 123,123.45（数字） |
| 句号 | 逗号 | 逗号 | 逗号 | 123.123,45 | 123.123,45 (文本) |
| 逗号 | 句号 | 逗号 | 句号 | 123,123.45 | 123,123.45（数字） |
| 句号 | 逗号 | 句号 | 逗号 | 123 123.45 | 123 123.45（文本） |
| 句号 | 逗号 | 句号 | 空格 | 123 123.45 | 123,123.45（数字） |
另见
示例
本示例将剪贴板中的内容（以空格分隔的文字表格）转换为工作表“Sheet1斨械姆至⒌牧小？捎谩凹鞘卤尽被颉靶醋职濉保ɑ蚱渌谋颈嗉鳎┐唇虻サ囊钥崭穹指舻谋砀瘢帽砀窀粗频郊籼澹偾谢坏?MicrosoftExcel，并运行
本示例。Worksheets("Sheet1")
.ActivateActiveSheet.Paste
Selection.TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True
适用于
Hyperlink 对象
描述
返回或设置要为指定超级链接显示的文本。默认值为超级链接的地址。可读写。String 类型。
示例
本示例为活动工作表上第一个超级链接设置要显示的文本。
ActiveSheet.Hyperlinks(1).TextToDisplay = _
"Company Home Page"
适用于
ChartFillFormat 对象，FillFormat 对象
描述
返回指定填充的自定义纹理文件名。String 类型，只读。
使用 UserPicture 方法或 UserTextured 方法可对填充的纹理文件进行设置。
示例
本示例以第一张图表中使用的填充格式对第二张图表的填充格式进行设置。
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillTextured Then
With Charts(2).ChartArea.Fill
.Visible = True
If c1f.TextureType = msoTexturePreset Then
.PresetTextured c1f.PresetTexture
Else
.UserTextured c1f.TextureName
End If
End With
End If
适用于
ChartFillFormat 对象，FillFormat 对象
描述
返回指定填充的纹理类型。可为下列 MsoTextureType 常量之一：
msoTexturePreset，msoTextureTypeMixed 或 msoTextureUserDefined。
Long 类型，只读。使用 UserTextured 方法可对填充的纹理类型进行设置。
示例
该示例将第二个图表的填充格式设置为第一个图表所使用的相同风格。
Set c1f = Charts(1).ChartArea.Fill
If c1f.Type = msoFillTextured Then
With Charts(2).ChartArea.Fill
.Visible = True
If c1f.TextureType = msoTexturePreset Then
.PresetTextured c1f.PresetTexture
Else
.UserTextured c1f.TextureName
End If
End With
End If
适用于
Application 对象
描述
返回一个 Workbook 对象，该对象代表当前运行宏所在的工作簿。只读。
说明
使用本属性可引用包含宏代码的工作簿。只能使用 ThisWorkbook 在加载宏内部引用该加载宏工作簿。ActiveWorkbook 属性返回的不是加载宏工作簿；它返回的是正在调用此加载宏的工作簿。如果在创建加载宏时改变工作簿的名称则 Workbooks 属性可能失效。ThisWorkbook 总是返回宏执行时它所在的工作簿。
例如，可以使用下列代码激活加载宏工作簿中存储的对话框工作表。
ThisWorkbook.DialogSheets(1).Show
本属性仅可在 Microsoft Excel 内使用。不能使用此属性访问任何其它应用程序的工作簿。
示例
本示例关闭包含示例代码的工作簿，不保存对工作簿的任何改动。
ThisWorkbook.Close SaveChanges:=False
适用于
Shape 对象，ShapeRange 集合对象
描述
返回 ThreeDFormat 对象，该对象包含指定形状的三维效果格式属性。只读。
示例
本示例设置 myDocument 中第一个形状的三维效果的深度、延伸部分颜色、延伸方向和光线方向。
Set myDocument = Worksheets(1)
With myDocument.Shapes(1).ThreeD
.Visible = True
.Depth = 50.ExtrusionColor.RGB = RGB(255, 100, 255)
' RGB value for purple
.SetExtrusionDirection msoExtrusionTop
.PresetLightingDirection = msoLightingLeft
End With
描述
代表形状的三维格式。
使用ThreeDFormat 对象
可用 ThreeD 属性返回 ThreeDFormat 对象。下例向 myDocument 添加椭圆，然后使该椭圆深度 50 磅高，并指定深度部分的颜色为紫色。
Set myDocument = Worksheets(1)
Set myShape = myDocument.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)
With myShape.ThreeD
.Visible = True
.Depth = 50.ExtrusionColor.RGB = RGB(255, 100, 255)
' RGB value for purple
End With
说明不能对某些类型的形状应用三维格式，如倾斜的形状或多重分段的路径。
对于这些类型的形状，ThreeDFormat 对象的绝大多数属性和方法都将失败。
属性
Application 属性，Creator 属性，Depth 属性，ExtrusionColor 属性，ExtrusionColorType属性，Parent属性，Perspective 属性，PresetExtrusionDirection 属性，PresetLightingDirection 属性，PresetLightingSoftness 属性，PresetMaterial 属性，PresetThreeDFormat 属性，RotationY 属性示例，RotationY 属性，Visible 属性
方法
IncrementRotationX 方法，IncrementRotationY方法，ResetRotation 方法，SetExtrusionDirection 方法，SetThreeDFormat 方法
适用于
Axis 对象
描述
描述指定坐标轴刻度线标记的位置。可为下列 XlTickLabelPosition 常量之一：
xlTickLabelPositionNone， xlTickLabelPositionLow，xlTickLabelPositionHigh 或 xlTickLabelPositionNextToAxis。Long 类型，可读写。
另见
MajorTickMark 属性， MinorTickMark 属性， TickLabels 属性， TickLabelSpacing 属性， TickMarkSpacing 属性
示例
本示例将“Chart1”分类坐标轴的刻度标志设为高位（在图表之上）。
Charts("Chart1").Axes(xlCategory) _
.TickLabelPosition = xlTickLabelPositionHigh
描述
代表图表坐标轴上刻度线的刻度线标志。本对象并非集合。没有代表单个刻度线标志的对象；只能将所有的刻度线标志作为一个单位同时返回。分类轴的刻度线标志文字是从图表中相应分类的名称而来。分类轴的默认刻度线标志文字，是指示该分类相对于该坐标轴最左端偏移量的数字。必须修改分类轴的 TickLabelSpacing 属性以改变每两个刻度线标志之间的无标志的刻度线的个数。数值轴的刻度线标志文字的计算，是基于数值轴的 MajorUnit，
MinimumScale 和 MaximumScale 属性。必须修改这些属性的值，才能改变数值轴的刻度线标志文字。
使用TickLabels 对象
可用 TickLabels 属性返回 TickLabels 对象。下例设置工作表“Sheet1”
上第一张内嵌图表中数值轴的刻度线标志的数字格式。
Worksheets("sheet1").ChartObjects(1).Chart _
.Axes(xlValue).TickLabels.NumberFormat = "0.00"
属性
Alignment 属性，Application 属性，AutoScaleFont 属性，Creator 属性，Depth 属性，Font 属性，Name 属性，NumberFormat 属性，NumberFormatLinked 属性，Offset 属性，(TickLabels 集合)，Orientation属性，Parent 属性，ReadingOrder 属性
方法
Delete 方法，Select 方法
适用于
Axis 对象
描述
返回一个 TickLabels 对象，该对象代表指定坐标轴的刻度线标志。只读。
另见
MajorTickMark 属性， MinorTickMark 属性， TickLabelPosition 属性 TickLabelSpacing 属性，TickMarkSpacing 属性
示例
本示例为“Chart1”数值坐标轴刻度标志的字体设置颜色。
Charts("Chart1").Axes(xlValue).TickLabels.Font.ColorIndex = 3
适用于
Axis 对象
描述
返回或者设置刻度线标志的系列数或分类数。仅应用于分类坐标轴或系列坐标轴。Long 类型，可读写。
说明
数值坐标轴上刻度线标志间隔总是由 Microsoft Excel 进行计算。
另见
MajorTickMark 属性， MinorTickMark 属性， TickLabelPosition 属性， TickLabels 属性， TickMarkSpacing 属性
示例
本示例设置“Chart1”分类坐标轴刻度线标志之间的分类数。
Charts("Chart1").Axes(xlCategory).TickLabelSpacing = 10
适用于
Axis 对象
描述
返回或者设置刻度标记之间的分类数或系列数。仅应用于分类坐标轴或系列坐标轴。Long 类型，可读写。
说明
使用 MajorUnit 属性和 MinorUnit 属性可对数值坐标轴的刻度线间隔进行设置。
另见
MajorTickMark 属性， MajorUnit 属性， MinorTickMark 属性， MinorUnit 属性， TickLabelPosition 属性， TickLabels 属性， TickMarkSpacing 属性
示例
本示例为“Chart1”分类坐标轴设置刻度线标记之间的分类数。
Charts("Chart1").Axes(xlCategory).TickMarkSpacing = 10
适用于
PublishObject 对象
描述
返回或设置在以 Web 页保存文档时该 Web 页的标题。可读写。String 类
型。
说明
在 Web 浏览器中查看该文档时，标题通常显示在窗口的标题栏中。
示例
当 Web 页保存第一个工作簿中的第一个项目时，本示例将 Web 页标题设置为“Sales Forecast
敗orkbooks(1).PublishObjects(1).Title = "Sales Forecast"
适用于
TextEffectFormat 对象
描述
使指定的艺术字对象的文字在水平排列方式和垂直排列方式之间转换。
句法
expression.ToggleVerticalText
expression
必选。该表达式返回 TextEffectFormat 对象。
说明
可用 ToggleVerticalText 方法交换艺术字对象的 Width 属性和 Height 属性的值，而保持其 Left 属性和 Top 属性不变。
Shape 对象的 Flip 方法和 Rotation 属性以及 TextEffectFormat 对象的RotatedChars 属性和 ToggleVerticalText 方法都会影响艺术字对象中的字符方向和文字排列方向。可能需要进行实验，以便适当地组合使用这些属性和方法，获得所需的效果。
示例
本示例向 myDocument 中添加包含“Test”的艺术字对象，并将其水平文字排列方向（对于指定的艺术字样式 msoTextEffect1，这是默认的文字排列方向）修改为垂直文字排列方向。
Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1,
Text:="Test", _
FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=100,
Top:=100)
newWordArt.TextEffect.ToggleVerticalText
适用于
Application 对象，Axis 对象，AxisTitle 对象，ChartArea 对象，ChartObject对象，ChartObjects 集合对象，DataLabel 对象，DisplayUnitLabel 对象，Legend 对象，LegendEntry 对象，LegendKey 对象，OLEObject 对象，OLEObjects 集合对象，PlotArea 对象，Range 对象，Shape 对象，ShapeRange 集合对象，Window对象
描述
以磅为单位返回或设置指定对象的位置。Long 类型，可读写，除非有下表所示的例外。
说明
Top 属性的含义依赖于所指定的对象。
| 对象 | 含义 |
| Application | 从屏幕顶端至 Microsoft Excel 主窗口顶端的距离。在Windows 中，如果 Microsoft Excel 窗口处于最小化状态，本属性将控制其图标的位置（在屏幕的任何位置）。 |
| Range | 从第一行顶端至该区域顶端的距离。如果该区域不连续，则以第一块区域计算。如果该区域有若干行，则以区域中最上边的行（行号最小的行）计算。只读。 |
| Window | 从窗口顶端至可用区域（在菜单、已停放的工具栏和编辑栏下方）顶端的距离。不能对最大化的窗口设置本属性。可用 WindowState 属性返回或设置窗口的状态。 |
|
Axis,AxisTitle,ChartArea,ChartObject, ChartTitle,DataLabel,Legend, LegendEntry,LegendKey, OLEObject, PlotArea |
从对象顶端至第一行顶端（在工作表中）或图表区顶端（在图表工作表中）的距离。对Axis, ChartArea,LegendEntry 和 LegendKey 只读。 |
对象 含义
Application 从屏幕顶端至 Microsoft Excel 主窗口顶端的距离。在Windows 中，如果 Microsoft Excel 窗口处于最小化状态，本属性将控制其图标的位置（在屏幕的任何位置）。
Range 从第一行顶端至该区域顶端的距离。如果该区域不连续，则以第一块区域计算。如果该区域有若干行，则以区域中最上边的行（行号最小的行）计算。只读。
Window 从窗口顶端至可用区域（在菜单、已停放的工具栏和编辑栏下方）顶端的距离。不能对最大化的窗口设置本属性。可用 WindowState 属性返回或设置窗口的状态。
Axis,AxisTitle,
ChartArea,
ChartObject,
ChartTitle,DataLab
el,
Legend,LegendEntr
y,
LegendKey,OLEObj
ect, PlotArea
从对象顶端至第一行顶端（在工作表中）或图表区顶端（在图表工作表中）的距离。对Axis, ChartArea,LegendEntry 和 LegendKey 只读。
另见
示例
本示例使内嵌图表的顶端与第二行的顶端对齐。
With Worksheets("Sheet1").ChartObjects(1).Top = .Rows(2).Top
End With
本示例将活动窗口的尺寸扩大为最大有效尺寸（假定该窗口还未最大化）。
With ActiveWindow.WindowState = xlNormal.
Top = 1
.Left = 1
.Height = Application.UsableHeight
.Width = Application.UsableWidth
End With
适用于
ChartObject 对象，OLEObject 对象，Shape 对象
描述
返回一个 Range 对象，该对象代表指定对象左上角下面的单元格。只读。
另见
示例
本示例显示 Sheet1 第一个嵌入式图表左上角下面的单元格的地址。
MsgBox "The top left corner is over cell" &
_Worksheets("Sheet1").ChartObjects(1).TopLeftCell.Address
适用于
PageSetup 对象
描述
以磅为单位返回或者设置上边距的大小。Double 类型，可读写。
说明
边距的设置和返回均以磅为单位。可使用 InchesToPoints 方法进行英寸到磅值的转换，也可使用 CentimetersToPoints 方法进行厘米到磅值的转换。
示例
下列两个示例均为将 Sheet1 的上边距设为 0.5 英寸（36 磅）。
Worksheets("Sheet1").PageSetup.TopMargin=_
Application.InchesToPoints(0.5)
Worksheets("Sheet1").PageSetup.TopMargin = 36
本示例显示上边距的当前设定值。
marginInches = ActiveSheet.PageSetup.TopMargin / _
Application.InchesToPoints(1)
MsgBox "The current right margin is " & marginInches & " inches"
适用于
PivotField 对象
描述
返回当前字段组中字段的总数。如果字段未分组， TotalLevels 返回 1。Long
类型，只读。
说明
同一分组内的所有字段具有相同的 TotalLevels 值。
示例
本示例显示包含活动单元格的字段组中字段的总数。
Worksheets("Sheet1").Activate
MsgBox "This group has " & _
ActiveCell.PivotField.TotalLevels & " levels."
适用于
PivotTable 对象
描述
如果报表基于OLAP数据源，且指定数据透视表中的分类汇总和总计数值旁有星号显示是为True。默认值为True。可读写。Boolean类型。
说明
本属性设置为真时，星号意味着总计中包括隐藏项。无论报表中的项目是否隐藏，星号都将出现。
对于非OLAP数据源，本属性值总为False。
示例
本例取消活动工作簿中第一个数据透视表中的星号。
ActiveSheet.PivotTables(1).TotalsAnnotation=Talse
适用于
TextEffectFormat 对象
描述
返回或设置指定的艺术字对象中分配给每个字符的水平空间与字符宽度的比例。可以是从 0（零）到 5 的值。本属性的值越大，表示字符的水平间距越大；如果本属性的值小于 1，则字符将重叠。Single 类型，可读写。
下表给出 Tracking 属性的值与用户界面上的设置之间的对应关系。
| 用户界面上的设置 | 等价的Tracking 属性值 |
| Very Tight | 0.8 |
| Tight | 0.9 |
| Normal1.0Loose | 1.2 |
| Very Loose | 1.5 |
示例
本示例向 myDocument 中添加包含“Test”的艺术字对象，并使该对象中的字符非常紧密地排列。
Set myDocument = Worksheets(1)
Set newWordArt = myDocument.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1,
Text:="Test", _
FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=100,
Top:=100)
newWordArt.TextEffect.Tracking =0.8
适用于
RoutingSlip 对象
描述
如果允许对传递名单进行状态追踪，本属性为 True。Boolean 类型，可读写。
说明
如果传递正在进行之中，就不能设置本属性。
示例
本示例将工作簿“Book1.xls”发送给三个收件人，并允许进行状态追踪。
Workbooks("BOOK1.XLS").HasRoutingSlip = True
With Workbooks("BOOK1.XLS").RoutingSlip
.Delivery = xlOneAfterAnother
.Recipients = Array("Adam Bendel", "Jean Selva", "Bernard Gabor")
.Subject = "Here is BOOK1.XLS"
.Message = "Here is the workbook. What do you think?"
.ReturnWhenDone = True
.TrackStatus = True
End With
Workbooks("BOOK1.XLS").Route
适用于
Worksheet 对象
描述
如果 Microsoft Excel 对工作表使用 Lotus 1-2-3 的表达式求值规则则为True，Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 对 Sheet1 使用 Lotus 1-2-3 表达式求值规则。
Worksheets("Sheet1").TransitionExpEval = True
适用于
Worksheet 对象
描述
如果 Microsoft Excel 对工作表使用 Lotus 1-2-3 公式输入规则则为 True，Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 对 Sheet1 使用 Lotus 1-2-3 的公式输入规则。
Worksheets("Sheet1").TransitionFormEntry = True
适用于
Application 对象
描述
String 类型，可返回原来设置的轮换菜单或帮助键，或者设置新的轮换菜单或帮助键，通常为“/”。可读写。
示例
本示例将转换菜单键设为“/”（默认键）。
Application.TransitionMenuKey = "/"
适用于
Application 对象
描述
返回或设置按下替换菜单键后将执行的操作。可为 xlExcelMenus 或 xlLotusHelp。Long 类型，可读写。
另见
示例
本示例设置按下替换菜单键后运行 Lotus 1-2-3 帮助。
Application.TransitionMenuKeyAction = xlLotusHelp
适用于
Application 对象
描述
如果转换常用键是活动的，则为 True。Boolean 类型，可读写。
示例
本示例显示“转换常用键”选项的当前状态。
If Application.TransitionNavigKeys Then
keyState = "On"
Else
keyState = "Off"
End If
MsgBox "The Transition Navigation Keys option is " & keyState
适用于
FillFormat 对象，LineFormat 对象，ShadowFormat 对象
描述
返回或者设置指定填充的透明度，取值范围为 0.0（不透明）和 1.0（清晰）
之间。
Double 类型，可读写。
说明
该属性的值仅影响实心填充及线条的外观。不会影响到图案、过渡及纹理的效果。
示例
本示例为第一张图表设置第三个形状的阴影效果为半透明的红色。如果形状没有阴影，本示例将加上阴影效果。
With Worksheets(1).Shapes(3).Shadow
.Visible = True
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0.5
End With
适用于
PictureFormat 对象
描述
以红-绿-蓝 (RGB) 值的形式返回或设置指定图片的透明颜色。为使本属性起作用，必须将 TransparentBackground 属性设置为 True。只能应用于位图。Long 类型，可读写。
说明
如果要透过图片的透明部分看到该图片后面的对象，就必须将该图片的FillFormat 对象的 Visible属性设置为 False。如果图片内有透明颜色，且该图片的 FillFormat 对象的 Visible 属性为 True，那么可以透过该图片的透明颜色所在的位置看到该图片的填充格式，但该图片后面的对象将被挡住。
示例
本示例用函数 RGB(0, 0, 255) 返回 RGB 值，并用该 RGB 值作为myDocument 中第一个形状的透明颜色。为使本示例正常运行，第一个形状必须是位图。
blueScreen = RGB(0, 0, 255)
Set myDocument = Worksheets(1)
With myDocument.Shapes(1)
With .PictureFormat
.TransparentBackground = True
.TransparencyColor = blueScreen
End With
.Fill.Visible = False
End With
适用于
PictureFormat 对象
描述
如果图片中定义为透明颜色的部分是透明的，本属性为 True。可用TransparencyColor 属性设置透明颜色。只能应用于位图。Long 类型，可读写。
说明
如果要透过图片的透明部分看到该图片后面的对象，就必须将该图片的FillFormat 对象的 Visible 属性设置为 False。如果图片内有透明颜色，且该图片的 FillFormat 对象的 Visible 属性为 True，那么可以透过该图片的透明颜色所在的位置看到该图片的填充格式，但该图片后面的对象将被挡住。
示例
本示例用函数 RGB(0, 0, 255) 返回 RGB 值，并用该 RGB 值作为myDocument 中第一个形状的透明颜色。为使本示例正常运行，第一个形状必须是位图。
blueScreen = RGB(0, 0, 255)
Set myDocument = Worksheets(1)
With myDocument.Shapes(1)
With .PictureFormat
.TransparentBackground = True
.TransparencyColor = blueScreen
End With
.Fill.Visible = False
End With
描述
代表多维数据集字段的层次成员选择控件。此对象主要用于录制宏，不作其它用途。
使用 TreeviewControl 对象使用 TreeviewControl 属性可返回 TreeviewControl 对象。下例将活动工作表中第二个数据透视表报表的 California 和 Maryland 州对应的控件设置为“drilled敚ㄕ箍蚩杉┳刺
ctiveSheet.PivotTables("PivotTable2") _
.CubeFields(1).TreeviewControl.Drilled = _
Array(Array("", ""), _
Array("[state].[states].[CA]", _
"[state].[states].[MD]"))
属性
Application 属性，Creator 属性，Drilled 属性，Hidden 属性，Parent 属性
适用于
CubeField 对象
描述
返回 CubeField 对象的 TreeviewControl 对象，该对象代表基于 OLAP 的数据透视表报表的多维数据集操作控件。只读。
说明
只有当该控件可见时，本属性有效。
示例
本示例将活动工作表上第二个数据透视表报表的“California”和“Maryland”州的第一个多维数据集字段控件设置为“drilled”。
ActiveSheet.PivotTables("PivotTable2") _
.CubeFields(1).TreeviewControl.Drilled = _
Array(Array("", ""), _
Array("[state].[states].[CA]", _
"[state].[states].[MD]"))
描述
代表图表中的趋势线。趋势线显示系列中数据的趋势，或者说发展方向。
Trendline 对象是 Trendlines 集合的成员。Trendlines 集合包含单个系列中所有的 Trendline 对象。
使用Trendline 对象
可用 Trendlines(index) （其中 index 为趋势线编号）返回单个 Trendline 对象。下例修改第一张工作表上第一张内嵌图表中第一个系列的趋势线类型。如果该系列没有趋势线，本示例将失败。
Worksheets(1).ChartObjects(1).Chart. _
SeriesCollection(1).Trendlines(1).Type = xlMovingAvg
趋势线编号指出趋势线添加到系列中的顺序。Trendlines(1) 为第一个添加
到系列中的趋势线，而 Trendlines(Trendlines.Count) 为最后一个。
属性
Application 属性，Backward 属性，Border 属性，Creator 属性，DataLabel属性，DisplayEquation 属性，DisplayRSquared 属性，Forward 属性，Index属性，Intercept 属性，InterceptIsAuto 属性，Name 属性，NameIsAuto 属性，Order 属性，Parent 属性，Period 属性，Type 属性
方法
ClearFormats 方法，Delete 方法，Select 方法
描述
指定的系列中所有 Trendline 对象的集合。Trendline 对象代表图表中的趋势线。趋势线显示系列中数据的趋势，或者说发展方向。
使用Trendlines 集合对象
可用 Trendlines 方法返回 Trendlines 集合。下例显示图表“Chart1”中第一个系列的趋势线的数目。
MsgBox Charts(1).SeriesCollection(1).Trendlines.Count
可用 Add 方法创建新趋势线并将其添加到系列中。下例向工作表“Sheet1”
上第一张内嵌图表的第一个系列添加线性趋势线。
Worksheets("sheet1").ChartObjects(1).Chart.SeriesCollection(1) _
.Trendlines.Add type:=xlLinear, name:="Linear Trend"
可用 Trendlines(index) （其中 index 为趋势线编号）返回单个 Trendline 对象。下例修改第一张工作表上第一张内嵌图表中第一个系列的趋势线类型。
如果该系列没有趋势线，本示例将失败。
Worksheets(1).ChartObjects(1).Chart. _
SeriesCollection(1).Trendlines(1).Type = xlMovingAvg趋势线编号指出趋势线添加到系列中的顺序。Trendlines(1) 为第一个添加到系列中的趋势线，而 Trendlines(Trendlines.Count) 为最后一个。
属性
Application 属性，Count 属性，Creator 属性，Parent 属性方法Add
方法
(Trendines 集合)，Item 方法(Trendlines 集合)
适用于
Series 对象
描述
返回代表系列中单个趋势线（Trendline 对象，句法 1）或所有趋势线的集合（Trendlines 对象，句法 2）的对象。
句法1
object.Trendlines(Index)
句法 2
object.Trendlines
object
必选。Series 对象。
Index
Variant 类型，可选。趋势线的名称或编号。
示例
本示例向图表“Chart1”中第一个数据系列添加线性趋势线。
Charts("Chart1").SeriesCollection(1).Trendlines.Add Type:=xlLinear
适用于
ChartFillFormat 对象，FillFormat 对象
描述
将指定填充设为双色过渡。
句法
expression.TwoColorGradient(Style, Variant)
expression
必选。该表达式返回一个 FillFormat 对象。
Style
Long 类型，必选。过渡样式。可为下列 MsoGradientStyle 常量之一：
msoGradientDiagonalDown,msoGradientDiagonalUp,msoGradientFromCenter,msoGradientFromCorner,msoGradientHorizontal 或 msoGradientVertical。
Variant
Long 类型，必选。过渡变量。取值范围为 1 到 4 之间，分别与“填充效果”对话框中“过渡”选项卡的四个过渡变量相对应。如果 Style 设为msoGradientFromCenter，则 Variant 参数只能设为 1 或 2。
示例
本示例为第一张图表设置前景颜色、背景颜色和图表区域填充的过渡。
With Charts(1).ChartArea.Fill
.Visible = True.
ForeColor.SchemeColor = 15
.BackColor.SchemeColor = 17
.TwoColorGradient msoGradientHorizontal, 1
End With
适用于
AutoCorrect 对象
描述
如果自动更正以两个大写字母开头的词则为 True。Boolean 类型，可读写。
示例
本示例设置 Microsoft Excel 自动更正以两个大写字母开头的词。
With Application.AutoCorrect.
TwoInitialCapitals = True.
ReplaceText = True
End With
适用于
Axis 对象，CalloutFormat 对象，ChartColorFormat 对象，ChartFillFormat对象，ColorFormat 对象，ConnectorFormat 对象，DataLabel 对象，DataLabels 集合对象，FillFormat 对象，FormatCondition 对象，HPageBreak 对象，Hyperlink 对象，Parameter 对象，Series 对象，ShadowFormat 对象，Shape 对象，ShapeRange 集合对象，Trendline 对象，Validation 对象，VPageBreak 对象，Window 对象，Worksheet 对象
描述
返回或者设置对象类型，如下表所示。
| 对象 | 类型 |
| Axis | 坐标轴类型。可为下列 XlAxisType 常量之一： xlCategory，xlSeriesAxis 或 xlValue。可读写。Long类型。 |
| Color | 颜色类型。可为下列 MsoColorType 常量之一： msoColorTypeMixed, msoColorTypeRGB或msoColorTypeScheme。只读。Long 类型。 |
| ConnectorFormat | 连接类型。可为下列 MsoConnectorType 常量之一：msoConnectorCurve, msoConnectorElbow,msoConnectorStraight或msoConnectorTypeMixed。可读写。Long 类型。 |
| DataLabel,DataLabels | 数据标志类型。可为下列 XlDataLabelsType 常量之一：xlDataLabelsShowBubbleSizes,xlDataLabelsShowLabel,xlDataLabelsShowLabelAndPercent,xlDataLabelsShowNone,xlDataLabelsShowPercent 或 xlDataLabelsShowValue。可读写。Long 类型。 |
| FillFormat | 填充类型。可为下列 MsoFillType 常量之一：msoFillBackground,msoFillGradient,msoFillMixed,msoFillPatterned, msoFillPicture,msoFillSolid 或 msoFillTextured。Microsoft Excel 中不使用 msoFillBackground 常量。只读。Long 类型。 |
| FormatCondition | 条件格式类型。可为下列 xlFormatConditionType 常量之一： xlCellValue 或 xlExpression。只读。Long 类型。 |
| HPageBreak,VPageBreak | 分页符类型。可为下列 XlPageBreak 常量之一：xlPageBreakAutomatic 或 xlPageBreakManual。可读写。Long 类型。 |
| Hyperlink | 超级链接类型（相关联的超级链接）。可为下列MsoHyperlinkType 常量之一：msoHyperlinkInlineShape,msoHyperlinkRange 或msoHyperlinkShape。只读。Long 类型。 |
| Parameter | 参数类型。可为下列 XlParameterType 常量之一：xlConstant, xlPrompt 或 xlRange。可读写。Long 类型。 |
| Shape,ShapeRange | 形状类型。可为下列 MsoShapeType 常量之一：msoAutoShape,msoCallout,msoChart,msoComment,msoEmbeddedOLEObject,msoFormControl,msoFreeform,msoGroup,msoLine,msoLinkedOLEObject,msoLinkedPicture,msoMedia,msoOLEControlObject,msoPicture,msoPlaceholder,msoShapeTypeMixed 或 msoTextEffect。只读。在 Microsoft Excel 中，本属性不为 msoMedia 或 msoPlaceholder 常量（这些常量在其他 Office 程序中同形状一起使用）Long 类型。 |
| Trendline | 趋势线类型。可为下列 XlTrendlineType 常量之一：xlExponential,xlLinear,xlLogarithmic,xlMovingAvg,xlPolynomial 或 xlPower。可读写。Long 类型。 |
| Validation | 数据有效性类型。可为下列 XlDVType 常量之一：xlValidateCustom,xlValidateDate,xlValidateDecimal,xlValidateInputOnly,xlValidateList,xlValidateTextLength,xlValidateTime 或 xlValidateWholeNumber。只读。 |
| Window | 窗口类型。可为下列 XlWindowType 常量之一：xlChartAsWindow,xlChartInPlace,xlClipboard,xlInfo或 xlWorkbook。只读。Long 类型。 |
| Worksheet | 工作表类型，可为 xlWorksheet,xlExcel4MacroSheet或xlExcel4IntlMacroSheet 之一。只读。Long 类型。 |
另见
示例
本示例为第一个工作表的第一个嵌入式图表中第一个系列更改趋势线类型。如果该系列没有趋势线则
本示例无效。Worksheets(1).ChartObjects(1).Chart. _
SeriesCollection(1).Trendlines(1).Type = xlMovingAvg