Класс Shape представляет объект в слое рисования, такой как AutoShape, произвольная форма, объект OLE или изображение.
Основными процедурами класса Shape являются копирование, удаление, выбор , ShapeRange.Delete, ShapeRange.Select, Shapes.Add3DModel, Shapes.AddCallout, Shapes.AddChart2, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddFormControl, Shapes.AddLabel, Shapes.AddLicture, Shapesbject.AddOLE .AddPicture2, Shapes.AddPolyline, Shapes.AddShape, Shapes.AddSmartArt, Shapes.AddTextbox и Shapes.AddTextEffect
Set
Чтобы использовать переменную класса Shape, сначала необходимо для создания экземпляра, например
Dim strFilename As String: strFilename = Dim chr As Chart: Установите chr = Dim shpAdd3DModel As ShapeSet shpAdd3DModel = chr.Shapes.Add3DModel (Filename: = strFilename)
Для установки переменных типа Shape можно использовать следующие процедуры: GroupItems, ShapeRange.GroupItems, Comment.Shape, ConnectorFormat.BeginConnectedShape, ConnectorFo rmat.EndConnectedShape, FreeformBuilder.ConvertToShape, GroupShapes.Item, Hyperlink.Shape, PivotCache.CreatePivotChart, PivotTable.PivotChart, Duplicate, ParentGroup, ShapeRange.Item, ShapeRange.Group, ShapeRange.Item, ShapesRange.Group, ShapeRange.Group. Add3DModel, Shapes.AddCallout, Shapes.AddChart2, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddFormControl, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.Add.Picture, Shapes.Add.Picture, Shapes.Add.Picture Shapes.AddSmartArt, Shapes.AddTextbox, Shapes.AddTextEffect, Slicer.Shape, Window.RangeFromPoint, ChartObject.ShapeRange, ChartObjects.ShapeRange, GroupShapes.Range, OLEObject.ShapeRange, ShapeRange.Range, ULEObject.ShapeRange, OLEObjects.Range.Under Shapes.Range, Chart.Shapes и Worksheet.Shapes
For Each
Вот пример обработки элементов Shape в коллекции.
Dim shp As Shape: установите shp = Dim shpGroupItem как ShapeFor каждого shpGroupItem в shp.GroupItems Следующий shpGroupItem
Темы
Некоторые процедуры в этом классе сгруппированы в темы и описаны на отдельных страницах тем
Ячейка с ее процедурами BottomRightCell и TopLeftCell
Копировать с ее процедурами Скопируйте и CopyPicture
3D с его процедурами Model3D и ShapeRange.Model3D
Sort/Order с его процедурами ZOrder, ZOrderPosition, ShapeRange.ZOrder и ShapeRange.ZOrderPosition
Добавьте с его процедурами Shapes. Add3DModel, Shapes.AddCallout, Shapes.AddChart2, Shapes.AddConnector, Shapes.AddCurve, Shapes.AddFormControl, Shapes.AddLabel, Shapes.AddLine, Shapes.AddOLEObject, Shapes.AddPicture, Shapes.Add.Picture, Shapes.Add.Picture, Shapes.Add.Picture, Shapes.Add.Picture Shapes.AddSmartArt, Shapes.AddTextbox и Shapes.AddTextEffect
Методы
Это основные методы класса Shape
Удалить – удаляет объект.
Select – выделяет объект.
ShapeRange.Delete – удаляет объект.
ShapeRange.Select – выбирает объект.
Другие методы
ShapeRange.Align – выравнивает фигуры в указанном диапазоне фигур.
Set myDocument = Worksheets (1) myDocument.Shapes.SelectAll Selection.ShapeRange.Align msoAlignLefts, False
ShapeRange.Distribute – горизонтальное или вертикальное распределение фигур в указанном диапазоне фигур.
Установить myDocument = Worksheets (1) с помощью myDocument.Shapes numShapes = .Count Если numShapes> 1 Тогда numAutoShapes = 0 ReDim autoShpArray (1 в numShapes) Для i = 1 в numShapes If .Item (i) .Type = msoAutoShape Then numAutoShapes = numAutoShapes + 1 autoShpArray (numAutoShapes If) = .Item (numAutoShapes) If =. numAutoShapes> 1 Затем ReDim Preserve autoShpArray (1 To numAutoShapes) Установить asRange = .Range (autoShpArray) asRange.Distribute msoDistributeHorizontally, False End If End If End With
Shapes.BuildFreeform – строит объект произвольной формы. Возвращает объект FreeformBuilder, представляющий произвольную форму по мере ее создания.
Set myDocument = Worksheets (1) With myDocument.Shapes.BuildFreeform (msoEditingCorner, 360, 200) .AddNodes msoSegmentCurve, msoEditingCorner, _ 380, 230, 400, 250, 450, 300 .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200 .AddNodes msoSegmentLine, msoEditingAuto, 480, 400 .AddNodes msoSegmentLine, msoEdCode, >
Свойства
GroupShapes.Count возвращает значение типа Long, представляющее количество объектов в коллекции.
GroupShapes.Parent возвращает родительский объект для указанного объекта. Только для чтения.
GroupShapes.Range возвращает объект ShapeRange, представляющий подмножество фигур в коллекции Shapes.
Установить myDocument = Worksheets (1) myDocument.Shapes.Range (Array (1, 3)) _ .Fill.Patterned msoPatternHorizontalBrick
Adjustments возвращает объект Adjustments, который содержит значения корректировки для всех корректировок в указанной форме. Применяется к любому объекту Shape, который представляет AutoShape, WordArt или Connector.
Установить myDocument = Worksheets (1) myDocument.Shapes (1) .Adjustments (1) = 0.25
AlternativeText возвращает или задает описательную (альтернативную) текстовую строку для объекта Shape при сохранении объекта на веб-странице.
Worksheets (1) .Shapes (1) .AlternativeText = "Концентрические круги"
AutoShapeType возвращает или устанавливает тип формы для указанного объекта Shape или ShapeRange, который должен представлять автофигуру, отличную от линии, рисунка произвольной формы или соединителя.
Set myDocument = Worksheets (1) For Каждый s В myDocument.Shapes Если s.AutoShapeType = msoShape16pointStar То s. AutoShapeType = msoShape32pointStar End If Next
BackgroundStyle возвращает или устанавливает стиль фона.
BlackWhiteMode возвращает или задает значение, которое указывает, как указанная форма отображается при просмотре презентации в черно-белом режиме.
Sub UseBlackWhiteMode () Dim wksOne Как набор рабочих листов wksOne = Application.Worksheets (1) wksOne.Shapes (1) .BlackWhiteMode = msoBlackWhiteGrayOutline End Sub
Callout возвращает объект CalloutFormat который содержит свойства форматирования выноски для указанной формы. Применяется к объекту Shape, который представляет выносные линии.
Установить myDocument = Worksheets (1) с помощью myDocument.Shapes .AddShape msoShapeOval, 180, 200, 280, 130 с .AddCallout ( msoCalloutTwo, 420, 170, 170, 40) .TextFrame.Characters.Text = "Мой овал" с .Callout .Accent = True .Border = False End With End With End With
Chart возвращает объект Chart, который представляет диаграмму, содержащуюся в фигуре.
Child возвращает msoTrue, если указанная фигура дочерняя фигура или все фигуры в диапазоне фигур являются дочерними фигурами одного и того же родителя. Возвращает msoFalse, если выбранная фигура не является дочерней фигурой. Возвращает msoTriStateMixed, если только некоторые из выбранных фигур являются дочерними.
ConnectionSiteCount возвращает количество сайтов подключения в указанной фигуре.
Установить myDocument = Worksheets (1) Установить s = myDocument.Shapes Установить firstRect = s.AddShape (msoShapeRectangle, _ 100, 50, 200, 100) Установить secondRect = s.AddShape (msoShapeRectangle, _ 300, 300, 200, 100) lastsite = secondRect.ConnectionSiteCount с s.AddConnector (msoConnectorCurve, _ 0, 0, 100, 100) .ConnectorFormat .BeginConnect ConnectedShape: = firstRect, _ ConnectionSite: = 1 .EndConnect ConnectedShape: = secondRect : = 1 Заканчивается на s.AddConnector (msoConnectorCurve, _ 0, 0, 100, 100) .ConnectorFormat .BeginConnect ConnectedShape: = firstRect, _ ConnectionSite: = 1 .EndConnect ConnectedShape: = secondRect, _ ConnectionSite: = lastsite End With
Connector true, если указанная фигура является соединителем.
Установить myDocument = Worksheets ( 1) С myDocument.Sh обезьяны For i = .Count To 1 Step -1 With .Item (i) If .Connector Then .Delete End With Next End With
ConnectorFormat возвращает объект ConnectorFormat, содержащий свойства форматирования соединителя. Применяется к объекту Shape, который представляет соединители.
Set myDocument = Worksheets (1) Set s = myDocument.Shapes Set firstRect = s.AddShape (msoShapeRectangle, 100, 50, 200 , 100) Установите secondRect = s.AddShape (msoShapeRectangle, 300, 300, 200, 100) Установите c = s.AddConnector (msoConnectorCurve, 0, 0, 0, 0) с помощью c.ConnectorFormat .BeginConnect firstRect, 1 .EndConnect secondRect, 1 c.RerouteConnections .BeginDisconnect. EndDisconnect End With
ControlFormat возвращает объект ControlFormat, содержащий свойства элемента управления Microsoft Excel.
Set lbcf = Worksheets (1) .Shapes (2) .ControlFormat lbcf.RemoveItem lbcf.ListIndex
Contemporary устанавливает или возвращает декоративный флаг для указанного объекта.
Fill возвращает объект FillFormat для указанной формы или объект ChartFillFormat для указанной диаграммы, который содержит свойства форматирования заливки для фигуры или диаграммы .
Установить myDocument = Worksheets (1) с помощью myDocument.Shapes.AddShape (msoShapeRectangle, _ 90, 90, 90, 50) .Fill .ForeColor.RGB = RGB (128 , 0, 0) .BackColor.RGB = RGB (170, 170, 170) .TwoColorGradient msoGradientHorizontal, 1 End With
FormControlType возвращает Тип элемента управления Microsoft Excel.
For Each s In Worksheets (1) .Shapes If s.Type = msoFormControl Then If s.FormControlType = xlCheckBox Then _ sC ontrolFormat.Value = False End If Next
Glow возвращает объект GlowFormat для указанной фигуры, который содержит свойства форматирования свечения для фигуры.
GraphicStyle возвращает или задает константу MsoGraphicStyleIndex, которая представляет стиль графики SVG.
Dim myShape As Shape Set myShape = ActiveDocument.Shapes (1) myShape.GraphicStyle = msoGraphicStylePreset22
GroupItems возвращает объект GroupShapes, представляющий отдельные фигуры в указанной группе . Используйте метод Item объекта GroupShapes, чтобы вернуть одну фигуру из группы. Применяется к объектам Shape, которые представляют сгруппированные фигуры.
Установить myDocument = Worksheets (1) с myDocument.Shapes .AddShape (msoShapeIsoscelesTriangle, _ 10, 10, 100, 100) .Name = "shpOne" .AddShape (msoShapeIsoscelesTriangle, _ 150, 10, 100, 100) .Name = "shpTwo" .AddShape (msoShapeIsoscelesTriangle, _ 300, 10, 100, 100) .Name = "shpThree" With .Range (Array ( "shpOne", "shpTwo", "shpThree")). Group .Fill.PresetTextured msoTextureBlueTissuePaper .GroupItems (2) .Fill.PresetTextured msoTextureGreenMarble, заканчивающийся на
HasChart возвращает, содержит ли фигура диаграмму.
HasSmartArt возвращает, присутствует ли диаграмма SmartArt в указанной фигуре.
Высота возвращает или задает значение Single, представляющее высоту объекта в точках.
HorizontalFlip true, если указанная фигура перевернута вокруг горизонтальной оси.
Установить myDocument = Worksheets (1) For Each s In m yDocument.Shapes Если s.HorizontalFlip Then s.Flip msoFlipHorizontal If s.VerticalFlip Then s.Flip msoFlipVertical Next
Hyperlink возвращает объект Hyperlink, который представляет гиперссылку для фигуры.
Рабочие листы (1) .Фигуры (1) .Гиперссылка. Follow NewWindow: = True
ID возвращает значение типа Long, представляющее тип для указанного объекта.
Left возвращает или задает значение Single, представляющее расстояние в пунктах от левого края объекта до левого края столбца A (на листе) или левого края диаграммы. область (на диаграмме).
Line возвращает объект LineFormat, который содержит свойства форматирования линии для указанной фигуры. (Для линии объект LineFormat представляет саму линию; для фигуры с рамкой объект LineFormat представляет границу).
Установите myDocument = Worksheets (1) с myDocument.Shapes.AddLine (10, 10, 250, 250) .Line .DashStyle = msoLineDashDotDot .ForeColor.RGB = RGB (50, 0, 128) Заканчивается на
LinkFormat возвращает объект LinkFormat, содержащий свойства связанного объекта OLE.
For Each s In Worksheets (1) .Shapes If s.Type = msoLinkedOLEObject Then s.LinkFormat.Update Next
LockAspectRatio true, если указанная форма сохраняет свои исходные пропорции при изменении ее размера. Значение false, если вы можете изменять высоту и ширину фигуры независимо друг от друга при изменении ее размера.
Установите myDocument = Worksheets (1) myDocument.Shapes.AddShape (msoShapeCube, _ 50, 50, 100, 200) .LockAspectRatio = msoTrue
Locked возвращает или задает логическое значение, указывающее, заблокирован ли объект.
Name возвращает или задает строковое значение, представляющее имя объекта.
Узлы возвращает коллекцию ShapeNodes, представляющую геометрическое описание указанной формы.
Set myDocument = Worksheets (1) With myDocument.Shapes (3) .Nodes .Insert 4, msoSegmentCurve , msoEditingSmooth, 210, 100 Заканчивается на
OLEFormat возвращает объект OLEFormat, содержащий свойства объекта OLE.
Worksheets(1).Shapes(1).OLEFormat.Activate
OnAction возвращает или задает имя макроса, который запускать, когда указанный объект – cho sen.
Рабочие листы (1) .Shapes (1) .OnAction = "ShapeClick"
Родитель возвращает родительский объект для указанного объекта. Только для чтения.
ParentGroup возвращает объект Shape, представляющий общую родительскую форму дочерней фигуры или диапазона дочерних фигур.
Sub ParentGroup () Dim pgShape As Shape With ActiveSheet.Shapes .AddShape Type: = 1, Left: = 10, Top: = 10, _ Width: = 100, Height: = 100 .AddShape Type : = 2, Left: = 110, Top: = 120, _ Width: = 100, Height: = 100 .Range (Array (1, 2)). Group End With 'Используя дочернюю фигуру в группе, получите родительскую фигуру . Установите pgShape = ActiveSheet.Shapes (1) .GroupItems (1) .ParentGroup MsgBox «Две формы теперь будут удалены». 'Удалить родительскую фигуру. pgShape. Удалить конечную подпрограмму
PictureFormat возвращает объект PictureFormat, который содержит свойства форматирования изображения для указанной фигуры. Применяется к объекту Shape, который представляет изображения или объекты OLE.
Установите myDocument = Worksheets (1) с помощью myDocument.Shapes (1) .PictureFormat .Brightness = 0.3 .Contrast =. 75 End With
Placement возвращает или устанавливает значение XlPlacement, которое представляет способ прикрепления объекта к ячейкам под ним.
Reflection возвращает объект ReflectionFormat для указанной формы, который содержит свойства форматирования отражения для этой фигуры.
Rotation возвращает или задает поворот фигуры в градусах.
Shadow возвращает объект ShadowFormat только для чтения, который содержит свойства форматирования тени для указанной фигуры или фигур .
ShapeStyle возвращает или задает значение MsoShapeStyleIndex, которое представляет стиль формы диапазона фигур.
SmartArt возвращает объект, представляющий SmartArt, связанный с фигурой.
SoftEdge возвращает S oftEdgeFormat для указанной фигуры, который содержит свойства форматирования мягких краев для фигуры.
TextEffect возвращает объект TextEffectFormat, который содержит свойства форматирования текстового эффекта для указанной фигуры .
Установить myDocument = Worksheets (1) с помощью myDocument.Shapes (3) Если .Type = msoTextEffect, то .TextEffect.FontBold = True End If End With
TextFrame возвращает объект TextFrame, который содержит свойства выравнивания и привязки для указанной формы.
Рабочие листы ( 1) .Shapes (1) .TextFrame _ .HorizontalAlignment = xlHAlignJustify
TextFrame2 возвращает объект TextFrame2, содержащий форматирование текста для указанной фигуры.
ThreeD возвращает объект ThreeDFormat, содержащий свойства форматирования 3D-эффекта для указанной фигуры.
Установить myDocument = Worksheets (1) С myDocument.Shapes (1) .ThreeD .Visible = True .Depth = 50 .Extrus ionColor.RGB = RGB (255, 100, 255) 'Значение RGB для пурпурного .SetExtrusionDirection msoExtrusionTop .PresetLightingDirection = msoLightingLeft End With
Title возвращает или задает заголовок альтернативного текста, связанного с указанной формой.
Top возвращает или задает значение Single, которое представляет расстояние в пунктах от верха край самой верхней фигуры в диапазоне фигур до верхнего края листа.
Type возвращает или задает значение MsoShapeType, представляющее тип фигуры.
VerticalFlip true, если указанная фигура перевернута вокруг вертикальной оси.
Установить myDocument = Worksheets (1) Для каждого s в myDocument.Shapes Если s.HorizontalFlip Then s.Flip msoFlipHorizontal If s.VerticalFlip Then s. Flip msoFlipVertical Next
Vertices возвращает координаты вершин указанного рисунка произвольной формы (и контрольных точек для кривых Безье) в виде серии пар координат. Вы можете использовать массив, возвращаемый этим свойством, в качестве аргумента метода AddCurve или AddPolyLine.
Установите myDocument = Worksheets (1) с помощью myDocument.Shapes (1) vertArray = .Vertices x1 = vertArray (1, 1) y1 = vertArray (1, 2) MsgBox "Координаты первой вершины:" & x1 & "," & y1 End With
Visible возвращает или задает значение MsoTriState, которое определяет, является ли объект видимым.
Width возвращает или задает значение Single, представляющее ширина объекта в точках.
ShapeRange.Adjustments возвращает объект Adjustments, который содержит значения корректировки для всех корректировок в указанной форме. Применяется к любому объекту ShapeRange, представляющему AutoShape, WordArt или Connector.
ShapeRange.AlternativeText возвращает или задает описательную (альтернативную) текстовую строку для объекта ShapeRange когда объект сохраняется на веб-страницу.
ShapeRange.AutoShapeType возвращает или задает тип формы для указанного объекта Shape или ShapeRange, который должен представлять другую автофигуру чем линия, рисунок произвольной формы или соединитель.
Установить myDocument = Worksheets (1) для каждого s в myDocument.Shapes Если s.AutoShapeType = msoShape16pointStar Тогда s.AutoShapeType = msoShape32pointStar End If Next
ShapeRange.BackgroundStyle возвращает или устанавливает стиль фона.
ShapeRange .BlackWhiteMode возвращает или задает значение, которое указывает, как указанная форма отображается при просмотре презентации в черно-белом режиме.
Sub UseBlackWhiteMode () Dim wksOne как набор рабочих листов wksOne = Application .Worksheets (1) wksOne.Shapes (1) .BlackWhiteMode = msoBlackWhiteGrayOutline End Sub
ShapeRange.Callout возвращает объект CalloutFormat, содержащий форматирование выноски свойства для указанной формы. Применяется к объектам ShapeRange, которые представляют обозначения линий.
Set myDocument = Worksheets (1) With myDocument.Shapes .AddShape msoShapeOval, 180, 200, 280, 130 With .AddCallout (msoCalloutTwo , 420, 170, 170, 40) .TextFrame.Characters.Text = "Мой овал" с .Callout .Accent = True .Border = False End With End With End With
ShapeRange.Chart возвращает объект Chart, представляющий диаграмму, содержащуюся в диапазоне фигур.
ShapeRange.Child возвращает msoTrue, если указанная фигура является дочерней фигурой или если все фигуры в диапазоне фигур являются дочерними фигурами одного и того же родителя. Возвращает msoFalse, если выбранная фигура не является дочерней фигурой. Возвращает msoTriStateMixed, если только некоторые из выбранных фигур являются дочерними..
Sub FillChildShape () 'Выберите первую фигуру на холсте для рисования. ActiveSheet.Shapes (1) .CanvasItems (1) .Select 'Заполнить выбранную фигуру, если это дочерняя фигура. Если Selection.ShapeRange.Child = msoTrue Then Selection.ShapeRange.Fill.ForeColor.RGB = RGB (100, 0, 200) Else MsgBox «Эта фигура не является дочерней фигурой». End If End Sub
ShapeRange.ConnectionSiteCount возвращает количество сайтов подключения в указанной фигуре.
Установить myDocument = Worksheets (1) Установить s = myDocument.Shapes Установить firstRect = s.AddShape (msoShapeRectangle, _ 100, 50, 200, 100) Установить secondRect = s.AddShape (msoShapeRectangle, _ 300, 300, 200 , 100) lastsite = secondRect.ConnectionSiteCount с s.AddConnector (msoConnectorCurve, _ 0, 0, 100, 100) .ConnectorFormat .BeginConnect ConnectedShape: = firstRect, _ ConnectionSite: = 1 .EndConnect ConnectedShape: = secondRect, _ Завершить с помощью s.AddConnector (msoConnectorCurve, _ 0, 0, 100, 100) .ConnectorFormat .BeginConnect ConnectedShape: = firstRect, _ ConnectionSite: = 1 .EndConnect ConnectedShape: = secondRect, _ ConnectionSite: = lastsite End With
ShapeRange.Connector true, если указанная фигура является соединителем.
Установить myDocument = Worksheets (1 ) С myDocument.Shapes For i = .Count To 1 Step -1 With .Item (i) Если .Connector Then .Delete End With Next End With
ShapeRange.ConnectorFormat возвращает объект ConnectorFormat, содержащий форматирование соединителя свойства. Применяется к объектам ShapeRange, которые представляют соединители.
Set myDocument = Worksheets (1) Set s = myDocument.Shapes Set firstRect = s.AddShape (msoShapeRectangle, 100, 50, 200, 100) Установите secondRect = s.AddShape (msoShapeRectangle, 300, 300, 200, 100) Установите c = s.AddConnector (msoConnectorCurve, 0, 0, 0, 0) с помощью c.ConnectorFormat .BeginConnect firstRect, 1 .EndConnect secondRect, 1 c.RerouteConnections .BeginDisconnect .EndDisconnect End With
ShapeRange.Count возвращает значение типа Long, представляющее количество объектов в коллекции.
ShapeRange.Decorative устанавливает или возвращает декоративный флаг для указанного объекта.
ShapeRange.Fill возвращает объект FillFormat для указанной фигуры или объект ChartFillFormat для указанной диаграммы, который содержит свойства форматирования заливки для фигуры или диаграммы.
Установить myDocument = Worksheets (1) с myDocument.Shapes.AddShape (msoShapeRectangle, _ 90, 90, 90 , 50) .Fill .ForeColor.RGB = RGB (128, 0, 0) .BackColor.RGB = RGB (170, 170, 170) .TwoColorGradient msoGradientHorizontal, 1 заканчивается на
ShapeRange.Glow возвращает объект GlowFormat для указанного диапазона фигур, который содержит свойства форматирования свечения для диапазона фигур.
ShapeRange. GraphicStyle возвращает или задает константу MsoGraphicStyleIndex, которая представляет стиль диапазона фигур, содержащего одну или несколько графиков SVG.
ShapeRange.GroupItems возвращает GroupShapes объект, представляющий отдельные фигуры в указанной группе. Используйте метод Item объекта GroupShapes, чтобы вернуть одну фигуру из группы. Применяется к объектам ShapeRange, представляющим сгруппированные фигуры.
Set myDocument = Worksheets (1) With myDocument.Shapes .AddShape (msoShapeIsoscelesTriangle, _ 10, 10, 100, 100) .Name = "shpOne" .AddShape (msoShapeIsoscelesTriangle, _ 150, 10, 100, 100) .Name = "shpTwo" .AddShape (msoShapeIsoscelesTriangle, _ 300, 10, 100, 100) .Name = "shpThree" With .Range (Array ( "shpOne", "shpTwo", "shpThree")). Group .Fill.PresetTextured msoTextureBlueTissuePaper .GroupItems (2) .Fill.PresetTextured msoTextureGreenMarble, заканчивающийся на
ShapeRange.HasChart возвращает, содержит ли диапазон фигур диаграмму.
ShapeRange.Height возвращает или задает значение Single, представляющее высоту, в пунктах объекта.
ShapeRange.HorizontalFlip true, если указанная фигура перевернута вокруг горизонтальной оси.
Установить myDocument = Worksheets (1) для каждого s в myDocument.Shapes Если s.HorizontalFlip То s.Flip msoFlipHorizonta l Если s.VerticalFlip Then s.Flip msoFlipVertical Next
ShapeRange.ID возвращает значение Long, представляющее тип для указанного объекта.
ShapeRange.Left возвращает или задает значение Single, которое представляет расстояние в пунктах от левого края объекта до левого края столбца A (на лист) или левый край области диаграммы (на диаграмме).
ShapeRange.Line возвращает объект LineFormat, который содержит свойства форматирования линии для указанного форма. (Для линии объект LineFormat представляет саму линию; для фигуры с рамкой объект LineFormat представляет границу).
Установите myDocument = Worksheets (1) с myDocument.Shapes.AddLine (10, 10, 250, 250) .Line .DashStyle = msoLineDashDotDot .ForeColor.RGB = RGB (50, 0, 128) Заканчивается на
ShapeRange.LockAspectRatio true, если указанная форма сохраняет свои исходные пропорции при изменении ее размера. Значение false, если вы можете изменять высоту и ширину фигуры независимо друг от друга при изменении ее размера.
Установите myDocument = Worksheets (1) myDocument.Shapes.AddShape (msoShapeCube, _ 50, 50, 100, 200) .LockAspectRatio = msoTrue
ShapeRange.Name возвращает или задает значение String, представляющее имя объекта .
ShapeRange.Nodes возвращает коллекцию ShapeNodes, которая представляет геометрическое описание указанной формы.
Установите myDocument = Worksheets (1) с помощью myDocument.Shapes (3) .Nodes. Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100 End With
ShapeRange.Parent возвращает родительский объект для указанного объекта. Только для чтения.
ShapeRange.ParentGroup возвращает объект Shape, представляющий общую родительскую форму дочерней фигуры или диапазона дочерних фигур.
Sub ParentGroup () Dim pgShape As Shape With ActiveSheet.Shapes. AddShape Тип: = 1, Слева: = 10, Сверху: = 10, _ Ширина: = 100, Высота: = 100. AddShape Type: = 2, Left: = 110, Top: = 120, _ Width: = 100, Height: = 100 .Range (Array (1, 2)). Group End With 'Используя дочернюю фигуру в группе, получите Родительская форма. Установите pgShape = ActiveSheet.Shapes (1) .GroupItems (1) .ParentGroup MsgBox «Две формы теперь будут удалены». 'Удалить родительскую фигуру. pgShape.Delete End Sub
ShapeRange.PictureFormat возвращает объект PictureFormat, который содержит свойства форматирования изображения для указанной фигуры. Применяется к объекту ShapeRange, который представляет изображения или объекты OLE.
Установить myDocument = Worksheets (1) с помощью myDocument.Shapes (1) .PictureFormat .Brightness = 0.3 .Contrast =. 75 Завершить на
ShapeRange.Reflection возвращает объект ReflectionFormat для указанного диапазона фигур, который содержит свойства форматирования отражения для диапазона фигур.
ShapeRange.Rotation возвращает или задает поворот фигуры в градусах.
ShapeRange.Shadow возвращает доступный только для чтения объект ShadowFormat, который содержит свойства форматирования тени для указанной фигуры или фигур.
ShapeRange.ShapeStyle возвращает или задает значение MsoShapeStyleIndex, представляющее стиль формы диапазона фигур.
ShapeRange.SoftEdge возвращает объект SoftEdgeFormat для указанного диапазона фигур, который содержит свойства форматирования мягких краев для диапазона фигур.
ShapeRange.TextEffect возвращает Te xtEffectFormat, который содержит свойства форматирования текстового эффекта для указанной фигуры.
Установить myDocument = Worksheets (1) With myDocument.Shapes (3) If .Type = msoTextEffect Then .TextEffect .FontBold = True End If End If End With
ShapeRange.TextFrame возвращает объект TextFrame, который содержит свойства выравнивания и привязки для указанной формы.
Worksheets(1).Shapes(1).TextFrame _ .HorizontalAlignment = xlHAlignJustify
ShapeRange.TextFrame2 возвращает объект TextFrame2, содержащий форматирование текста для указанного диапазона фигур.
ShapeRange.ThreeD возвращает объект ThreeDFormat, содержащий свойства форматирования 3D-эффекта для указанной формы.
Установить myDocument = Worksheets (1) с помощью myDocument.Shapes (1) .ThreeD .Visible = True .Depth = 50 .ExtrusionColor.RGB = RGB ( 255, 100, 255) 'Значение RGB для пурпурного .SetExtrusionDirection msoExtrusionTop. PresetLightingDirection = msoLightingLeft End With
ShapeRange.Title возвращает или задает заголовок альтернативного текста, связанный с указанным диапазоном фигур.
ShapeRange.Top возвращает или задает значение Single, представляющее расстояние в точках от верхнего края самой верхней фигуры в диапазоне фигур до верхнего края листа. .
ShapeRange.Type возвращает значение MsoShapeType, представляющее тип фигуры.
ShapeRange.VerticalFlip true, если указанная фигура перевернута вокруг вертикальной оси.
Установить myDocument = Worksheets (1) For Each s In myDocument.Shapes If s.HorizontalFlip Then s. Flip msoFlipHorizontal If s.VerticalFlip Then s.Flip msoFlipVertical Next
ShapeRange.Vertices возвращает координаты вершин указанного рисунка произвольной формы (и контрольных точек для кривых Безье) в виде серии координатных пар. Вы можете использовать массив, возвращаемый этим свойством, в качестве аргумента метода AddCurve или AddPolyLine.
Установите myDocument = Worksheets (1) с помощью myDocument.Shapes (1) vertArray = .Vertices x1 = vertArray (1, 1) y1 = vertArray (1, 2) MsgBox "Координаты первой вершины:" & x1 & "," & y1 End With
ShapeRange.Visible возвращает или задает значение MsoTriState, определяющее, является ли объект видимым.
ShapeRange.Width возвращает или устанавливает значение Single значение, представляющее ширину объекта в пунктах.
Shapes.Count возвращает значение типа Long, представляющее количество объектов в коллекции.
Shapes.Parent возвращает родительский объект для указанного объекта. Только для чтения.
Shapes.Range возвращает объект ShapeRange, представляющий подмножество фигур в коллекции Shapes.
Dim arShapes () As Variant Dim objRange As Object arShapes = Array ("Oval 4", "Rectangle 5") Set objRange = ActiveSheet.Shapes.Range (arShapes)