--
Raas

ActiveChart.Shapes("Freeform 1").Fill.ForeColor.RGB = vbRed

"Raas" wrote:


--
Raas

Thank you, but I already knew this part. I want to be able to retrieve the
freeform name and number from the system so I can refer to it. Each new
polygon I put on this chart gets a new freeform number assigned
automatically, and I need to retrieve this number out of the name.
--
Raas


"Vic Eldridge" wrote:

ActiveChart.Shapes("Freeform 1").Fill.ForeColor.RGB = vbRed

"Raas" wrote:


--
Raas

Hi Raas,

When creating any object (such as a shape object) , you can assign the
object to an "object variable" , whose scope and lifetime are at your
complete control.

eg

Sub AddFreeformShape()

Dim FFB As FreeformBuilder
Dim Shp As Shape

Set FFB =
ActiveSheet.ChartObjects(1).Chart.Shapes.BuildFree form(msoEditingCorner, 360,
200)
With FFB
.AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250,
450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
Set Shp = .ConvertToShape
End With

MsgBox Shp.Name

End Sub




"Raas" wrote:

Thank you, but I already knew this part. I want to be able to retrieve the
freeform name and number from the system so I can refer to it. Each new
polygon I put on this chart gets a new freeform number assigned
automatically, and I need to retrieve this number out of the name.
--
Raas


"Vic Eldridge" wrote:

ActiveChart.Shapes("Freeform 1").Fill.ForeColor.RGB = vbRed

"Raas" wrote:


--
Raas

Thank you! That helped a lot. Good have you out there for learners like
myself.
--
Raas


"Vic Eldridge" wrote:

Hi Raas,

When creating any object (such as a shape object) , you can assign the
object to an "object variable" , whose scope and lifetime are at your
complete control.

eg

Sub AddFreeformShape()

Dim FFB As FreeformBuilder
Dim Shp As Shape

Set FFB =
ActiveSheet.ChartObjects(1).Chart.Shapes.BuildFree form(msoEditingCorner, 360,
200)
With FFB
.AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250,
450, 300
.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
Set Shp = .ConvertToShape
End With

MsgBox Shp.Name

End Sub




"Raas" wrote:

Thank you, but I already knew this part. I want to be able to retrieve the
freeform name and number from the system so I can refer to it. Each new
polygon I put on this chart gets a new freeform number assigned
automatically, and I need to retrieve this number out of the name.
--
Raas


"Vic Eldridge" wrote:

ActiveChart.Shapes("Freeform 1").Fill.ForeColor.RGB = vbRed

"Raas" wrote:


--
Raas