Editing Shape Points to Create Custom Graphics

I’m working on updating my Dashboard Tools Add-in to add more modern looking infographics and maps. I’ve discovered a neat feature called Edit Points.

When working with a shape, you can right-click and select Edit Points

This places little dots all around the shape. You can click and drag these dots to create a custom shape.

 

Here, I took my newly created shape and

combined it with a circle with a wide border and no fill.

What can I do with this?

Glad you asked.

I made little dashboard gizmos to use as infographic shapes.

It’s Friday…put down your serious work and mess around with some shapes today!

If you’re interested, you can download these gizmos here.

 

 

 

6 thoughts on “Editing Shape Points to Create Custom Graphics

  1. Doug Glancy

    Nice post. I remember spending hours using Edit Points many years ago doing some kind of mapping or designing in Word. I haven’t hardly used it since. What you’ve done here looks great, and fun.

  2. datapig Post author

    John,

    well…info-graphics generally involves some silly/unnecessary way to show a simple number (artsy over practical).

    I guess I’m getting my estrogen surges early in life.

  3. flavioHenrique

    Hi Datapig!

    I want to move a node (not delete, not insert) node of shape already put in spreadsheet Excel using VBA,

    You have to be using vba

    and so transform a rectangle into a triangle (it remains triangle type)

    Excel only allows you to move nodes of freeforms not nodes of shapes.
    you know how to convert shapes to freforms
    or place the shape in editing mode nodes, as do click with the right button

    iam not find one way on the entire web!

    thanks!

  4. Andy Pope

    This makes a rectangle look like a triangle.

    Sub Test()

    Dim shp As Shape
    Dim nod As ShapeNode

    Set shp = Sheet1.Shapes.AddShape(msoShapeRectangle, 10, 10, 110, 60)
    Debug.Print “Begin Type”, shp.Type, “AutoshapeType”, shp.AutoShapeType

    shp.Nodes.SetPosition 2, shp.Left, shp.Top
    Debug.Print “End Type “, shp.Type, “AutoshapeType”, shp.AutoShapeType

    Debug.Print “msoShapeRectangle”, msoShapeRectangle
    Debug.Print “msoFreeForm”, msoFreeform
    Debug.Print “msoShapeNotPrimitive”, msoShapeNotPrimitive

    End Sub

    Note the Type and Autoshapetype change.
    If you have xl2007 you can use the following to convert selected shape to freeform

    application.CommandBars.ExecuteMso “ShapeConvertToFreeform”

  5. flavioHenrique

    Hi, Andy Pope!

    (i am sent email with workbooks sample files!)

    FANTASTIC !!! Thank you very, very mutch, guru !

    forgive me
    I had not seen her comment on the website

    your code works fine!

    i need more way: change only type to freeform without change layout star = star, triangle = triangle.

    without change the diemensions, not deform appearence, not change the appearence, only colors etc.

    i want covert others shapes to freeform without change the dimensions/shape,
    star = star, heart = heart, etc, only type change.

    is possible change type without move points?
    or move nodes and back same time only change type to freeform ?
    like put same coordinates values of shape only joke the Excel vba convert to freeform?

    ————————————————————————
    iam like very mutch your ShapeNodesEditor Userform
    i want integrate your ShapeNodesEditor in my workbook sample file!

Leave a Reply

Your email address will not be published. Required fields are marked *