Insertar Formas con Macros

Tengo un formulario donde ingreso un dato por ejemplo nombre, y necesito crear o insertar un circulo o un cuadrado en excel que contenga adentro dicho dato (nombre) alguien tiene una idea de como hacerlo.
Básicamente es hacer inserción de formas en Excel con ayuda de los macros

1 respuesta

Respuesta
2
Desde ya que se puede hacer, pero es más fácil que Agregar (Add) el Shape, jugar con la propiedad visible=false o true
y el texto
con algo como esto:
Sub cargar_nombre()
Shapes("Elipse 1").TextFrame.Characters.Text = "Tomás"
End Sub
Excelente Respuesta, muy muy buena.
Gracias solo que la verdad no me funciono del todo
así que hice una union de lo que me respondiste y me quedo de la siguiente forma
ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
    36#, 151.5, 202.5, 125.25).TextFrame.Characters.Text = "Texto"
Por si sabes como cambiarle color a esa figura ahora te lo agradecerías Gracias de Verdad.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Borrar con Macros Gráfico incrustado

He realizado una macros en excel a través del grabador de macros en donde pretendo borrar un gráfico incrustado creado en una hoja1, el problema es que, cuando pretendo ejecutar la macros me aparece el siguiente error: Se ha producido un error '1004'...
1 respuesta

¿Cómo cambiar contorno autoforma macro?

Quisiera saber la forma de cambiar el contorno de una autoforma por medio de una macro, pues ya he logrado darle nombre y cambiarle el color de relleno, pero no he encontrado la forma de cambiarle su contorno. A continuación el código que he logrado...
1 respuesta

Imágenes en Excel

Quiero hacer una macro que borre unas imágenes que coloqué me diante otra macro, es decir yo realicé una macro que coloca las imágenes pero no he podido realizar la macro que las borre y entonces me toca borrarlas manualmente.
1 respuesta

¿Cómo saber el nombre de una autoforma generada por macros? Y como guardar el nombre

Tengo la siguiente instrucción que me genera una autoforma el cual es el siguiente: ActiveSheet.Shapes.AddShape(msoShapeBevel, 0#, 0#, 72#, 36.75).Select Selection.Characters.Text = Range("A1") ¿Mi duda es como puedo saber el nombre de la autoforma...
1 respuesta

Insertar, modificar y posicionar autoformas VBA

Quiero insertar las siguientes autoformas mediante código: Flecha vertical señalando hacia arriba Flecha horizontal señalando hacia la derecha Rectángulo vertical Rectángulo horizontal Después modificar su color y colocarlos en zonas concretas de un...
1 respuesta

Limpiar ComboBox con VBA

Tengo un proyecto en excel 2010 con algo de VBA donde en determinada hoja lleno celdas con datos simulando un formulario, un dato especifico de esa serie se debe seleccionar de un ComboBox, una vez llenas todas las celdas ejecuto una macro que copia...
1 respuesta

Macro en excel cambiar el tamaño de una imagen

Quisiera ajustar el tamaño y posición de la imagen usando una macro que obtenga los datos del tamaño y posición de celdas en excel. Alguien me puede ayudar ha resolver el problema.
1 respuesta

Mostrar hojas ocultas excel 2007

Soy contador publico y estoy recibiendo un cargo en una empresa, mi pregunta se relaciona en que el Sr. Contador anterior dejo el archivo para realizar los balances pero dejo ocultas las hojas para alimentar las hojas que los elaboran, lo que pasa es...
1 respuesta