white_flag
10-26-2016, 02:37 AM
Hello
I have a shape that is created like this:
Sub test1()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeChord, 200, 50, 150, 150)
With shp
.Fill.Visible = False
.Name = "shape1"
.IncrementRotation 112#
.LockAspectRatio = msoFalse
.Line.Weight = 2.5
.Line.Style = msoLineSingle
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
I am trying to find "the yellow dot" parameter in vba for shapes (if you draw a shape and selec itt, you will see a yellow dot).
Thank you!
I have a shape that is created like this:
Sub test1()
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeChord, 200, 50, 150, 150)
With shp
.Fill.Visible = False
.Name = "shape1"
.IncrementRotation 112#
.LockAspectRatio = msoFalse
.Line.Weight = 2.5
.Line.Style = msoLineSingle
.Line.ForeColor.RGB = RGB(255, 0, 0)
End With
End Sub
I am trying to find "the yellow dot" parameter in vba for shapes (if you draw a shape and selec itt, you will see a yellow dot).
Thank you!