Name a BuildFreeform shape Question

[julhs]

The code below constructs a Freeform shape, how can I give the shape a meaning full/given name so that it is not simply given “Freeform ??? what ever” when it gets converted to a shape.

Sub DrawFreeformME()
Dim ws As Worksheet, fb As FreeFormBuilder
Set ws = ActiveSheet
' Create freeform
Set fb = ws.Shapes.BuildFreeform(msoEditingAuto, 380, 230)
' Add segments.
fb.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
fb.AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
fb.AddNodes msoSegmentLine, msoEditingAuto, 480, 400
fb.AddNodes msoSegmentLine, msoEditingAuto, 380, 230
' Render drawing.
fb.ConvertToShape
End Sub

 

[julhs]

You two are talking about detail way over my head!!! (that’s not a surprise)
However; I’m trying to follow it and learn what I can.

 

[Marius44]

HI
Our discussion, very interesting for me, is a question of "goat's wool" (lana caprina) as they say in Italy.
As I said Micron's solution is much more streamlined than mine. It is better if you follow his suggestions.
Hi,
Mario

 

[Micron]

Think of it like parents and children. Forgetting anything to do with the application itself, think of the workbook as the parent object.
One wb (grandpa) can have many sheets (children). The sheets belong to a group/family called a collection, which is an object itself. Sometimes there can only be one collection of any type (such as only one collection of sheets). So if parent (wb) contains sheet1, sheet2 and sheet3 then there are 3 sheets in the one sheets collection that belongs to the workbook (grandpa).

A sheet can also be a parent and have its own collections of differing types. Shapes is one of them. Each sheet can have its own collection of shapes because the shapes collection belongs to (is a child of) the sheet, not the workbook. To get at a particular shape contained in the collection object requires that we refer to the index of the collection. The index property will accept a number (e.g. 1) or the name of the shape in order to identify which shape in the collection you want to refer to. However you cannot start there. You must start the reference in a top down fashion (like an org chart). Where you must start depends on certain factors but let's look at it like the following just as an example.

So I've been saying that even references like the one offered - ActiveSheet.Shapes("YourName").Select

is still invoking the shapes collection (my grandpa is not referenced here but I can do so in a second example):

Grandpa	Dad	Child	Index (name or number)	Action (Method)
	ActiveSheet	.Shapes	("YourName")	.Select
Thisworkbook	.ActiveSheet	.Shapes	("YourName")	.Select

Much of the time you can think of a lower member of the real hierarchy to be the topmost level if you wish because sometimes upper levels are assumed by default. ThisWorkbook is one of those that need not be used in the reference in this case.
HTH explain some of it. Might be worthwhile to research vba collections, and if you're really into this stuff, dictionaries (somewhat like a collection object).