1 Тема от Alex_Gur

  • Значения стандартных типов графических объектов Shape в VBA
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Тема: Значения стандартных типов графических объектов Shape в VBA

Информация приводится по источнику: внешняя ссылка
Применимо для Excel и для Word.

Пример обращения к типу графического объекта:

Sub HideAllAutoShapes()
'*************************************
'**** Code from VisibleVisual.com ****
'*************************************
Dim sShapes As Shape
For Each sShapes In ActiveSheet.Shapes
If sShapes.Type = 1 Then 'This 1 filters only autoshapes
sShapes.Visible = msoFalse
End If
Next sShapes
End Sub

Наименование параметра – Значение - Описание
-----------------------------------------------
msoAutoShape - 1 - AutoShape.
msoCallout - 2 - Callout.
msoCanvas - 20 - Canvas.
msoChart - 3 - Chart.
msoComment - 4 - Comment.
msoDiagram - 21 - Diagram.
msoEmbeddedOLEObject - 7 - Embedded OLE object.
msoFormControl - 8 - Form control.
msoFreeform - 5 - Freeform.
msoGroup - 6 - Group.
msoIgxGraphic - 24 - SmartArt graphic
msoInk - 22 - Ink
msoInkComment - 23 - Ink comment
msoLine - 9 - Line
msoLinkedOLEObject - 10 - Linked OLE object
msoLinkedPicture - 11 - Linked picture
msoMedia - 16 - Media
msoOLEControlObject - 12 - OLE control object
msoPicture - 13 - Picture
msoPlaceholder - 14 - Placeholder
msoScriptAnchor - 18 - Script anchor
msoShapeTypeMixed - -2 - Mixed shape type
msoTable - 19 - Table
msoTextBox - 17 - Text box
msoTextEffect - 15 - Text effect

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.