macros para formas

Hola , cordial saludo.

Quiero usar unas macros que me ayuden con la creacion de unos circulos que usare en unos mapas estrategicos. Quiero seleccionar esa macro y que me cree un circulo y le pueda dar un nombre o texto. Luego necesito que llamar otra macro y pueda selccionar dos circulos para que me una con una flecha los dos circulos con destino del primer circulo al segundo.

Probaste el Grabadro de macros?

Esto lo acabo de grabar y depurar un poco

Código:

    ActiveSheet.Shapes.AddShape(msoShapeOval, 63#, 28.5, 136.5, 136.5).Select
    Selection.Characters.Text = "Origen"
   
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With

Hola sip, es un buen inicio.

Gracias.