Тип shape в excel

Работа с фигурами в VBA Excel: создание фигур методом Shapes.AddShape, типы фигур (MsoAutoShapeType), обращение к фигурам и изменение их свойств. Примеры.

Объекты для работы с фигурами

Фигуры в VBA Excel представлены тремя объектами:

Объект	Описание
Shapes	Коллекция всех фигур на рабочем листе. Используется для создания новых фигур, для обращения к одной фигуре по имени и для перебора фигур циклом.
ShapeRange	Коллекция нескольких фигур, аргументом которой является массив имен выбранных объектов. Используется для редактирования сразу всех фигур, входящих в эту коллекцию.
Shape	Объект, представляющий одну фигуру. Используется для редактирования одной этой фигуры.

Фигуры в VBA Excel создаются методом Shapes.AddShape.

Синтаксис метода AddShape

Shapes.AddShape (Type, Left, Top, Width, Height)

Shapes — выражение, возвращающее коллекцию фигур на рабочем листе, например: ActiveSheet.Shapes.

Параметры метода AddShape

Параметр	Описание
Type	Константа из коллекции MsoAutoShapeType, определяющая тип создаваемой фигуры.
Left	Расстояние от левой границы фигуры до левой границы табличной части рабочего листа в пунктах.. Тип данных — Single.
Top	Расстояние от верхней границы фигуры до верхней границы табличной части рабочего листа в пунктах.. Тип данных — Single.
Width	Ширина фигуры по внешним границам в пунктах.
Height	Высота фигуры по внешним границам в пунктах.

Все параметры метода Shapes.AddShape являются обязательными.

Константы MsoAutoShapeType

Константы коллекции MsoAutoShapeType, определяющие основные типы создаваемых фигур:

Константа	Значение	Тип фигуры
msoShapeRectangle	1	Прямоугольник
msoShapeParallelogram	2	Параллелограмм
msoShapeTrapezoid	3	Трапеция
msoShapeDiamond	4	Ромб
msoShapeRoundedRectangle	5	Прямоугольник: скругленные углы
msoShapeOctagon	6	Восьмиугольник (октаэдр)
msoShapeIsoscelesTriangle	7	Равнобедренный треугольник
msoShapeRightTriangle	8	Прямоугольный треугольник
msoShapeOval	9	Овал
msoShapeHexagon	10	Шестиугольник (гексаэдр)
msoShapeCross	11	Крест
msoShapeRegularPentagon	12	Пятиугольник (пентаэдр)
msoShapeCan	13	Цилиндр
msoShapeCube	14	Куб
msoShapeDonut	18	Круг: прозрачная заливка (кольцо)
msoShapeLightningBolt	22	Молния
msoShapeSun	23	Солнце
msoShapeMoon	24	Месяц (луна)
msoShape5pointStar	92	Звезда: 5 точек (пятиконечная)
msoShapeCloud	179	Облако

Все доступные константы из коллекции MsoAutoShapeType смотрите на сайте разработчиков.

Создание объекта ShapeRange

Создание коллекции ShapeRange из выбранных фигур:

Dim myShapeRange As ShapeRange Set myShapeRange = ActiveSheet.Shapes.Range(Array(«Пятиугольник 140», «Солнце 141», «Облако 144»))

Объектная переменная myShapeRange не обязательна, можно обратиться непосредственно к возвращенной коллекции, например, присвоив всем ее элементам синий цвет:

ActiveSheet.Shapes.Range(Array(«Пятиугольник 140», «Солнце 141», «Облако 144»)).Fill.ForeColor.RGB = vbBlue

Примеры работы с фигурами

Пример 1

Создание пяти разных фигур из кода VBA Excel методом Shapes.AddShape:

Sub Primer1()     With ActiveSheet.Shapes         ‘При создании фигуры без присвоения ее переменной скобки не нужны         .AddShape msoShapeCube, 30, 40, 72, 72         .AddShape msoShapeIsoscelesTriangle, 130, 40, 72, 72         .AddShape msoShapeSun, 230, 40, 72, 72         .AddShape msoShapeLightningBolt, 330, 40, 72, 72         ‘Чтобы выбрать фигуру, параметры необходимо заключить в скобки         .AddShape(msoShapeCloud, 430, 40, 72, 72).Select     End With End Sub

Результат работы кода:

Пример 2

Работа с одной фигурой:

Sub Primer2() Dim myShape As Shape ‘Создаем фигуру «Месяц» и присваивает ссылку на нее переменной myShape Set myShape = ActiveSheet.Shapes.AddShape(msoShapeMoon, 50, 50, 80, 80)     With myShape         ‘Меняем высоту и ширину фигуры         .Height = 150         .Width = 100         ‘Меняем цвет фигуры         .Fill.ForeColor.RGB = vbYellow         ‘Поворачиваем фигуру влево на 40 градусов         .Rotation = —40     End With End Sub

Пример 3

Редактирование одновременно нескольких фигур с помощью коллекции ShapeRange:

Sub Primer3()     With ActiveSheet.Shapes.Range(Array(«Овал 1», «Овал 2», «Овал 3»))         ‘Меняем цвет всех фигур из коллекции ShapeRange         .Fill.ForeColor.RGB = vbBlue         ‘Задаем высоту и ширину овалов         .Height = 150         .Width = 50         ‘Поворачиваем фигуры вправо на 45 градусов         .Rotation = 45     End With End Sub

Пример 4

Редактирование одновременно всех фигур на рабочем листе с помощью коллекции ShapeRange:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Primer4() Dim myShapeRange As ShapeRange, i As Integer, _ myShape As Shape, myArray() As String ‘Задаем массиву размерность от 1 до количества фигур на листе ReDim myArray(1 To ActiveSheet.Shapes.Count)     ‘Проходим циклом по всем фигурам коллекции и записываем их имена в массив     For Each myShape In ActiveSheet.Shapes         i = i + 1         myArray(i) = myShape.Name     Next ‘Создаем коллекцию ShapeRange и присваиваем ссылку на нее переменной myShapeRange Set myShapeRange = ActiveSheet.Shapes.Range(myArray)     With myShapeRange         ‘Изменяем цвет всех фигур на рабочем листе         .Fill.ForeColor.RGB = RGB(100, 150, 200)         ‘Поворачиваем все фигуры вокруг вертикальной оси         .Flip msoFlipVertical     End With End Sub

Пример 5

Добавление надписи (текста) на фигуру:

Sub Primer5() Dim myShape As Shape Set myShape = ActiveSheet.Shapes.AddShape(msoShapeCloud, 50, 30, 300, 300)     With myShape.TextFrame2         ‘Добавление текста на фигуру         .TextRange.Characters.Text = «Объект TextFrame представляет текстовую рамку в объекте Shape. Содержит текст в текстовом кадре, а также свойства и методы, которые контролируют выравнивание и закрепление текстового кадра.»         ‘Задаем курсивное начертание         .TextRange.Characters.Font.Italic = True         ‘Указываем размер шрифта         .TextRange.Characters.Font.Size = 13         ‘Отступ левой границы текстового поля от левой внутренней границы фигуры         .MarginLeft = 30         ‘Отступ верхней границы текстового поля от верхней внутренней границы фигуры         .MarginTop = 20     End With End Sub

Результат работы кода:

Изменить цвет текста, например на черный, можно двумя способами:

‘С помощью константы MsoThemeColorIndex myShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1 ‘С помощью цветовой модели RGB myShape.TextFrame2.TextRange.Characters.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)

С константами из коллекции MsoThemeColorIndex вы можете ознакомиться на сайте разработчиков.

Пример 6

Удаление фигур с рабочего листа из кода VBA Excel с помощью метода Delete.

Удаление одной фигуры:

ActiveSheet.Shapes(«Ромб 5»).Delete

Удаление нескольких фигур:

ActiveSheet.Shapes.Range(Array(«Овал 1», «Овал 2», «Овал 3»)).Delete

Удаление всех фигур с рабочего листа с помощью цикла:

Sub Primer6() Dim myShape As Shape     For Each myShape In ActiveSheet.Shapes         myShape.Delete     Next End Sub

В 7 примере рассмотрено удаление всех фигур без цикла.

Пример 7

Выделение всех фигур на рабочем листе:

ActiveSheet.Shapes.SelectAll

Выбор всех фигур и удаление выбранного (всех фигур):

Sub Primer7()     ActiveSheet.Shapes.SelectAll     Selection.Delete End Sub

---

Продолжение темы в статье VBA Excel. Копирование, перемещение и поворот фигур.

---

The Excel VBA Shape object represents an object in the
drawing layer, such as an AutoShape, freeform, OLE object, or picture. It is a
member of the Shapes collection, which contains all the shapes in a workbook,
but represents a single shape in a worksheet.

How to refer to the Shape
object

We refer to the Shapes collection in a given worksheet as indicated below:

ActiveSheet.Shapes                       

Then, we can use properties and methods of the Shapes collection as per the Excel object model structure. Some useful methods of the Shapes collection are: AddShape,
AddTextBox, AddFormControl, AddPicture, Item, SelectAll. See below an example
of the structure (for AddShape see next section).

 ActiveSheet.Shapes.SelectAll                    ‘selects all the shapes in
the active sheet

 ActiveSheet.Shapes.Item(1).Select           ‘selects the first shape in the
active sheet

The latest can simply be referred to as either of the below two
options: the first one using the index, and the second using the shape name. Thus, we refer to a single Shape object.

ActiveSheet.Shapes(1)

ActiveSheet.Shapes(«Rectangle 1»)

Add new shapes

We use the method AddShape of the Excel VBA Shapes
collection to create or add a new shape in a given worksheet. Excel
automatically gives a default name depending on the type of shape (for example,
Rectangle 1, TextBox 2, etc), but we can easily change the name of the shape
and many other properties (see later). See below the standard statement to add
a new AutoShape in the active worksheet. 

ActiveSheet.Shapes.AddShape MsoAutoShapeType, pLeft, pTop, pWidth, pHeight

Where MsoAutoShapeType specifies the type of
an AutoShape object (MsoAutoShapeType enumeration for Microsoft Office), and pLeft, pTop, pWidth, and pHeight determine the position and
size of the shape in points. Note that the pLeft and pTop refer to the upper
left corner of the shape in reference to the upper left edge of the worksheet.

In the following example, we add a rectangle
to the active worksheet.

 ActiveSheet.Shapes.AddShape
msoShapeRectangle, 20, 20, 200, 100

In order to add the shape to a specific cell
or range in the worksheet, we need to specify the position and size of the
shape as follows:

 Dim rng As Range

 Set rng = ActiveSheet.Range(«D4:H8»)

 rngLeft = rng.Left

 rngTop = rng.Top

 rngHeight = rng.Height

 rngWidth = rng.Width

 ActiveSheet.Shapes.AddShape msoShapeRectangle,
rngLeft, rngTop, rngWidth, rngHeight

It is more practical to add the shape to an
object variable in order to easily apply formatting properties or methods later.
In the following example, we define an object variable called “MyShape” to add
a rectangle to the active worksheet, then we change the name of the shape and
apply any other properties (for this see next section).

 Dim MyShape As Shape

 Set MyShape =
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 140, 80)

 With MyShape

     .Name =
«MyFirstShape»

     ‘other
properties

 End With

We can add other types of shapes such as text
boxes, form controls, smart art shapes, pictures, etc, with the corresponding
method of the Shapes collection. Here are some useful examples.

The code below adds a textbox into the active
worksheet with given dimensions (100×60) and some inner text. Note that we use
the TextFrame.Characters method to work with text inside the box.

 Dim
txtbox As Shape

 Set
txtbox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50,
100, 60)

 With
txtbox.TextFrame.Characters

     .Text = «This is my first textbox»

     .Font.Color = vbRed

 End
With

We can add form controls such as buttons,
check boxes, combo boxes, etc, with the AddFormControl method of the Shapes
collection. For example, to add a command button we can use a similar structure
than the one we have seen earlier:

 ActiveSheet.Shapes.AddFormControl
xlButtonControl, 20, 20, 100, 40

In this particular case we
can also use the Buttons.Add method directly. The following subroutine adds a command button to the active worksheet,
and assigns another procedure (ButtonAction) to be run when clicked.

 Sub
AddButtonToWorksheet()

     Dim
btn As Object

     Set
btn = ActiveSheet.Buttons.Add(20, 20, 100, 40)

     btn.OnAction = «ButtonAction»

 End Sub

 Sub
ButtonAction()

     MsgBox «You have pressed the button»

 End Sub

Select, copy, and delete shapes

We can select, copy, or delete a shape using
the corresponding methods of the Shape object, and specifying that particular
shape with either the number or name (as we have seen earlier).  

 ActiveSheet.Shapes(«Rectangle 1»).Select        ‘selects Rectangle 1

 ActiveSheet.Shapes(2).Select                          ‘selects
the second shape

 ActiveSheet.Shapes.SelectAll                           ‘selects all shapes in the
active sheet

 ActiveSheet.Shapes(«Rectangle 1»).Copy

 ActiveSheet.Paste

 ActiveSheet.Shapes(«Rectangle
1»).Delete

In order to copy or delete all shapes in the
worksheet we need to loop through all shapes using a For Each loop. If you are
not familiar with loops, please check the lesson 6 (Conditions and Loops) in
the training for beginners. The following example deletes all shapes in the
active worksheet:

 Dim shp As Shape

 For Each shp In ActiveSheet.Shapes

     shp.Delete

 Next shp

If we want to select and work with a subset of shapes (more
than just one), we have to construct a ShapeRange
collection that contains the shapes we want to work with. In the example below,
we select a rectangular shape (Rectangle 1) and a textbox (TextBox 2) through
an array of shapes. We can now work with those shapes and apply for example
formatting properties to both at the same time.

 Dim ShpSubsetArray() As Variant

 Dim ShpSubset As Object

 ShpSubsetArray = Array(«Rectangle 1»,
«TextBox 2»)

 Set ShpSubset =
ActiveSheet.Shapes.Range(ShpSubsetArray)

 ShpSubset.Select

Format shapes

There are a bunch of properties to format
shapes in Excel VBA. We can specify the position in the worksheet with the Top
and Left properties as we have seen earlier. Similarly, we can set the width
and height of the shape with the respective properties of the Shape
object.

 With ActiveSheet.Shapes(«Rectangle 1»)

     .Top = 100

     .Left = 100

     .Width = 200

     .Height = 120

 End With

We can also change the aspect of the interior
and border of the shape. The following example changes the interior color of the
rectangle to blue and sets a thick red border around using the Fill and Line
properties.

 With ActiveSheet.Shapes(«Rectangle 1»)

     .Fill.ForeColor.RGB = RGB(0, 0, 255)

     .Line.ForeColor.RGB = RGB(255, 0, 0)

     .Line.Weight = xlThick

 End With

In order to add text to the shape we need to
use the TextFrame property. This may be particularly useful when dealing with
textboxes. We use the TextFrame.Characters method to add text, change font
properties, etc. The example below adds some text red and bold inside the
textbox.

 With ActiveSheet.Shapes(«TextBox 2»)

     With .TextFrame.Characters

         .Text = «This is my textbox»

         .Font.Color = vbRed

         .Font.Bold = True

     End With

 End With

Other VBA Objects

Application

Workbook

Worksheet

WorksheetFunction

Range

Chart

Почему же не нужно? Представьте, что автофигура с размеров во весь лист, у неё TopLeftCell — это ячейка A1. Если не учитывать BottomRightCell, то в выделенном диапазонк B2:G20 её как бы и нет, но на самом деле она перекрывает все ячейки. Впрочем, «выбрать все рисунки в выделенном диапазоне ячеек» может иметь и иной смысл — Вам виднее.

Вот пример того, как загнать все объекты DrawingObjects заданного диапазона в коллекцию:

Sub Test()
Dim x, Rng As Range, Col As New Collection
Set Rng = Range(«B2:G20»)
For Each x In ActiveSheet.DrawingObjects
If Not Intersect(Range(x.TopLeftCell, x.BottomRightCell), Rng) Is Nothing Then
Debug.Print x.Name
Col.Add x
End If
Next
End Sub

А если кроме рисунков нужны ещё и автофигуры, то у прямоугольников, например, имена могут повторяться (вариант — при копировании), поэтому dic.Add x.Name, … не есть гуд
В варианте же с коллекцией без ключа собираются все объекты, а не только с уникальными именами

Sub t()
Dim x, dic
Set dic = CreateObject(«scripting.dictionary»)
For Each x In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Selection, x.TopLeftCell) Is Nothing Then
dic.Add x.Name, x
End If
Next
ActiveSheet.Shapes.Range(dic.keys).Select
Set dic = Nothing
End Sub

Sub t()
Dim x, dic
On Error Resume Next
Set dic = CreateObject(«scripting.dictionary»)
For Each x In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Selection, x.TopLeftCell) Is Nothing Then
dic.Add x.DrawingObject.Index, 0
End If
Next
ActiveSheet.Shapes.Range(dic.keys).Select
Set dic = Nothing
End Sub

Почти то же самое, но без словаря и с учётом области пересечения по 2-м углам:
Sub tt()
Dim x, r As Range

Set r = ActiveWindow.RangeSelection
On Error Resume Next
For Each x In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Range(x.TopLeftCell, x.BottomRightCell), r) Is Nothing Then x.Select (False)
Next x
End Sub

Алексей, не понятно, зачем Вам нужно выделять картинки, обычно select — лишнее действие, если это не интерфесная необходимость, конечно.

Для коллекции приведу еще пример кода для общего случая, когда нужно хранить группу картинок в переменной ShpsRng для последующих групповых операций.

ShpsRng можно было бы объявить и вне процедуры на уровне модуля или глобально.

Sub SelectPictures()
‘ Выделение рисунков видимой области экрана
Dim a(), i&, n&
Dim Shp As Shape, Shps As Shapes, ShpsRng As ShapeRange, Rng As Range
Set Shps = ActiveSheet.Shapes
If Shps.Count = 0 Then Exit Sub
ReDim a(1 To Shps.Count)
Set Rng = Windows(1).VisibleRange
For i = 1 To Shps.Count
With Shps.Item(i)
If .Type = msoPicture Then
If Not Intersect(Range(.TopLeftCell, .BottomRightCell), Rng) Is Nothing Then
n = n + 1
a(n) = i
End If
End If
End With
Next
If n Then
ReDim Preserve a(1 To n)
Set ShpsRng = Shps.Range(a) ‘ ShpsRng может быть и глобальной
ShpsRng.Select ‘ <— для примера
End If
End Sub

Попытал разные варианты кода и всё-таки остановился на Володином (с ActiveWindow.RangeSelection). Так получается и короче, и немного корректнее: программа не отказывается работать если выбран не диапазон, а обрабатывает графические объекты, попадающие в диапазон, который был выбран до того, как выбран графический объект:
Private Sub Draws_In_Selection_Select() ‘ выделить все рисунки в выбранном диапазоне
Dim oDraw, rSel As Range
Set rSel = ActiveWindow.RangeSelection
For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Range(oDraw.TopLeftCell, oDraw.BottomRightCell), rSel) Is Nothing Then oDraw.Select (False)
Next
End Sub

Меня вполне удовлетворил выбор с Shape.Select(False)
Не столько в конце-концов на листе шэйпов чтобы заметить медленность метода.
Поэтому оставил так:
Private Sub Draws_In_Selection_Select() ‘ выделить В ВЫБРАННОМ ДИАПАЗОНЕ все рисунки
Dim oDraw, rSel As Range
Set rSel = ActiveWindow.RangeSelection
For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Range(oDraw.TopLeftCell, oDraw.BottomRightCell), rSel) Is Nothing Then oDraw.Select (False)
Next
End Sub

Ну и заодно по такому же принципу слепил макрос, выделяющий на листе все рисунки с нулевыми размерами (они остаются на листе после удаления строк/столбцов):

Private Sub Draws_0D_Select() ‘ выделить НА ЛИСТЕ все рисунки с нулевыми размерами
Dim oDraw As Shape
For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
If oDraw.Width = 0 Or oDraw.Height = 0 Then oDraw.Select (False)
Next
End Sub

title	keywords	f1_keywords	ms.prod	ms.assetid	ms.date	ms.localizationpriority
Working with shapes (drawing objects)	vbaxl10.chm5206010	vbaxl10.chm5206010	excel	aef5dc81-d54f-a01a-f949-a30688a3cf23	11/13/2018	medium

Shapes, or drawing objects, are represented by three different objects:

Object	Description
Shapes collection	Use to create shapes and to iterate through all the shapes on a given worksheet.
ShapeRange collection	Use to modify multiple shapes the same way you work with multiple shapes in the user interface.
Shape object	Use to format or modify a single shape.

Setting properties for a shape

Many formatting properties of shapes are not set by properties that apply directly to the Shape or ShapeRange object. Instead, related shape attributes are grouped under secondary objects, such as the FillFormat object, which contains all the properties that relate to the shape’s fill, or the LinkFormat object, which contains all the properties that are unique to linked OLE objects.

To set properties for a shape, you must first return the object that represents the set of related shape attributes and then set properties of that returned object. For example, you use the Fill property to return the FillFormat object, and then you set the ForeColor property of the FillFormat object to set the fill foreground color for the specified shape, as shown in the following example.

Worksheets(1).Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

Applying a property or method to several shapes at the same time

In the user interface, you can perform some operations with several shapes selected; for example, you can select several shapes and set all their individual fills at once. You can perform other operations with only a single shape selected; for example, you can edit the text in a shape only if a single shape is selected.

In Visual Basic, there are two ways to apply properties and methods to a set of shapes. These two ways allow you to perform any operation that you can perform on a single shape on a range of shapes, whether or not you can perform the same operation in the user interface.

• If the operation works on multiple selected shapes in the user interface, you can perform the same operation in Visual Basic by constructing a ShapeRange collection that contains the shapes you want to work with, and applying the appropriate properties and methods directly to the ShapeRange collection.

• If the operation does not work on multiple selected shapes in the user interface, you can still perform the operation in Visual Basic by looping through the Shapes collection or through a ShapeRange collection that contains the shapes you want to work with, and applying the appropriate properties and methods to the individual Shape objects in the collection.

Many properties and methods that apply to the Shape object and ShapeRange collection fail if applied to certain kinds of shapes. For example, the TextFrame property fails if applied to a shape that cannot contain text.

If you are not positive that each of the shapes in a ShapeRange collection can have a certain property or method applied to it, don’t apply the property or method to the ShapeRange collection. If you want to apply one of these properties or methods to a collection of shapes, you must loop through the collection and test each individual shape to make sure it is an appropriate type of shape before applying the property or method to it.

Creating a ShapeRange collection that contains all shapes on a sheet

You can create a ShapeRange object that contains all the Shape objects on a sheet by selecting the shapes and then using the ShapeRange property to return a ShapeRange object containing the selected shapes.

Worksheets(1).Shapes.Select 
Set sr = Selection.ShapeRange

In Microsoft Excel, the Index argument is not optional for the Range property of the Shapes collection, so you cannot use this property without an argument to create a ShapeRange object containing all shapes in a Shapes collection.

Applying a property or method to a ShapeRange collection

If you can perform an operation on multiple selected shapes in the user interface at the same time, you can do the programmatic equivalent by constructing a ShapeRange collection and then applying the appropriate properties or methods to it. The following example constructs a shape range that contains the shapes named «Big Star» and «Little Star» on myDocument and applies a gradient fill to them.

Set myDocument = Worksheets(1) 
Set myRange = myDocument.Shapes.Range(Array("Big Star", _ 
 "Little Star")) 
myRange.Fill.PresetGradient _ 
 msoGradientHorizontal, 1, msoGradientBrass

The following are general guidelines for how properties and methods behave when they are applied to a ShapeRange collection.

• Applying a method to the collection is equivalent to applying the method to each individual Shape object in that collection.

• Setting the value of a property of the collection is equivalent to setting the value of the property of each individual shape in that range.

• A property of the collection that returns a constant returns the value of the property for an individual shape in the collection if all shapes in the collection have the same value for that property. If not all shapes in the collection have the same value for the property, it returns the «mixed» constant.

• A property of the collection that returns a simple data type (such as Long, Single, or String) returns the value of the property for an individual shape if all shapes in the collection have the same value for that property.

• The value of some properties can be returned or set only if there is exactly one shape in the collection. If the collection contains more than one shape, a run-time error occurs. This is generally the case for returning or setting properties when the equivalent action in the user interface is possible only with a single shape (actions such as editing text in a shape or editing the points of a freeform).

The preceding guidelines also apply when you are setting properties of shapes that are grouped under secondary objects of the ShapeRange collection, such as the FillFormat object. If the secondary object represents operations that can be performed on multiple selected objects in the user interface, you’ll be able to return the object from a ShapeRange collection and set its properties.

For example, you can use the Fill property to return the FillFormat object that represents the fills of all the shapes in the ShapeRange collection. Setting the properties of this FillFormat object will set the same properties for all the individual shapes in the ShapeRange collection.

Looping through a Shapes or ShapeRange collection

Even if you cannot perform an operation on several shapes in the user interface at the same time by selecting them and then using a command, you can perform the equivalent action programmatically by looping through a Shapes or ShapeRange collection that contains the shapes you want to work with, applying the appropriate properties and methods to the individual Shape objects in the collection.

The following example loops through all the shapes on myDocument and changes the foreground color for each AutoShape shape.

Set myDocument = Worksheets(1) 
For Each sh In myDocument.Shapes 
 If sh.Type = msoAutoShape Then 
 sh.Fill.ForeColor.RGB = RGB(255, 0, 0) 
 End If 
Next

The following example constructs a ShapeRange collection that contains all the currently selected shapes in the active window and sets the foreground color for each selected shape.

For Each sh in ActiveWindow.Selection.ShapeRange 
 sh.Fill.ForeColor.RGB = RGB(255, 0, 0) 
Next

Aligning, distributing, and grouping shapes in a ShapeRange

Use the Align and Distribute methods to position a set of shapes relative to one another or relative to the document that contains them.

Use the Group method or the Regroup method to form a single grouped shape from a set of shapes.

See also

• Excel functions (by category)

[!includeSupport and feedback]