MyTetra Share
Делитесь знаниями!
Вставка символа
16.03.2019
23:43
Раздел: !Закладки - VBA - Excel - Shapes

Sub Вставка_Символа()

Dim strType As MsoAutoShapeType

Dim strRa As String


strRa = ActiveCell.Address

'strType = msoShapeIsoscelesTriangle

strType = msoShapeOval

'тип

'левая позиция

'верхняя позиция

'ширина

'высота

'овал

' ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height).Select

'треугольник

ActiveSheet.Shapes.AddShape(strType, ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height).Select

With Selection

.ShapeRange.ShapeStyle = msoShapeStylePreset1

.ShapeRange.Fill.Visible = msoFalse

End With

Range(strRa).Select

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования