Excel VBA教程:ShapeRange集合

   
多个对象
ShapeRange
多个对象

代表图形区域,该区域是文档中的一组图形。图形区域可包含一个图形,也可包含文档中的所有图形。可以在图形区域中包含所需的任意图形(在文档中的所有图形中选取,或在所有选定的图形中选取)。例如,可以构造包含文档中前三个图形、所有选定图形或所有任意多边形的 ShapeRange集合。

有关如何处理单个图形或同时处理若干图形的概述,请参阅处理图形(绘图对象)

ShapeRange集合用法

本部分说明了下述内容:

用名称或索引号返回指定的一组图形

可用 Shapes.Range(index) 返回代表文档中的一组图形的 ShapeRange集合,其中 index 为图形的名称或索引号,或者由图形的名称或索引号组成的数组。可用 Array函数构造名称或索引号的数组。下例设置myDocument 上的第一个和第三个图形的填充图案。


Set myDocument = Worksheets(1)
myDocument.Shapes.Range(Array(1, 3)).Fill.Patterned _
    msoPatternHorizontalBrick

下例设置 myDocument 上的图形“Oval 4”和“Rectangle 5”的填充图案。


Set myDocument = Worksheets(1)
Set myRange = myDocument.Shapes.Range(Array("Oval 4", _
    "Rectangle 5"))
myRange.Fill.Patterned msoPatternHorizontalBrick

虽然可用Range属性返回任意数量的图形或幻灯片,但如果只返回集合中的单个成员,使用Item方法会更简单。例如,Shapes(1) 就比Shapes.Range(1) 要简单一些。

返回文档中全部或部分选定的图形

可用 Selection对象的ShapeRange属性返回选定区域中的所有图形。下例设置第一个窗口中的选定区域内的所有图形的前景填充色,假定该选定区域中至少有一个图形。


Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = _
    RGB(255, 0, 255)

可用 Selection.ShapeRange(index)(其中 index 为图形的名称或索引号)返回某一选定的图形。下例设置了第一个窗口内选定图形的集合中第二个图形的前景填充色,假定该选定区域中至少有两个图形。


Windows(1).Selection.ShapeRange(2).Fill.ForeColor.RGB = _
    RGB(255, 0, 255)

上页:Excel VBA教程:ShapeNodes集合对象 下页:Excel VBA教程:Shapes集合

Excel VBA教程:ShapeRange集合

Excel VBA教程:Shapes集合 Excel VBA教程:Sheets集合对象
Excel VBA教程:SmartTag对象 Excel VBA教程:SmartTagAction对象
Excel VBA教程:SmartTagActions集合 Excel VBA教程:SmartTagOptions对象
Excel VBA教程:SmartTagRecognizer对象 Excel VBA教程:SmartTagRecognizers集合
Excel VBA教程:SmartTags集合 Excel VBA教程:SoundNote对象
Excel VBA教程:Speech对象 Excel VBA教程:SpellingOptions对象
Excel VBA教程:Style对象 Excel VBA教程:Styles集合
Excel VBA教程:Tab对象 Excel VBA教程:TextEffectFormat对象
Excel VBA教程:TextFrame对象 Excel VBA教程:ThreeDFormat对象
Excel VBA教程:TickLabels对象 Excel VBA教程:TreeviewControl对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号