UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

Por favor antes de hacer su consulta lean "Recomendaciones para hacer preguntas." Den Click aquí

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Escribir texto en dibujo el 07/02/18, 01:11 pm

pedrot


Saludos y buen dia, tarde o noche Excel-entes
Tenia tiempo sin venir

Tengo un problema para escribir en un dibujo.
En el archivo enviado donde dibujo unas cajas de longitud de Columna C , necesito escribir la Columna B
Si es posible en forma vertical y en tamaño pequeño.
Se indica una muestra del resultado.

Reenviado No veo el archivo
Archivos
Dibujo.zip
No tienes los permisos para descargar los archivos.
(24 KB)



Última edición por pedrot el 07/02/18, 01:15 pm, editado 1 vez (Razón : No veo el archivo)

2 Re: Escribir texto en dibujo el 07/02/18, 11:20 pm

Igtelo

avatar
Hola Pedrot.

Te dejo 2 macros y comentarios en el módulo2, no modifiqué tu macro "Dibuja", sólo agregué la llamada a macro Texto2...

Saludos
Ignacio Téllez
Archivos
Pedrot-Texto en Shape.xlsm
No tienes los permisos para descargar los archivos.
(32 KB)

3 Re: Escribir texto en dibujo el 08/02/18, 10:52 am

adolfotovar


Gracias Igtelo


Instrucciones que entiendo lo que hace pero no su estructura (¿objetos?) funciona bien pero...

...le agregué unas lineas verticales y con eso el texto no funciona

Otra cosa, quiseiera colocar un texto, libre, independiente de esos rectangulos ¿Como lo haría?
Archivos
Pedrot-Texto en Shape-2.xlsm
No tienes los permisos para descargar los archivos.
(33 KB)

4 Re: Escribir texto en dibujo el 08/02/18, 11:01 am

adolfotovar


Saludos de nuevo Igtelo

Soy pedrot.
Como olvide mis datos de pedrot tube que crear un nuevo nombre de adolfotovar, y entré con el nuevo. disculpen el malentendido. Embarassed

5 Re: Escribir texto en dibujo el 08/02/18, 05:15 pm

pedrot


Hola Igtelo

Cree el texto4 guiandome en lo tuyo y viendo por allí.
Hasta aquí he llegado y no puedo quitar el relleno ni el borde al texto.
¿no debo? poner el texto de esa forma ya que  puede haber otros dibujos del mismo tipo y el texto ¿?
Habrá que darles nombre individual o agrupar ciertos dibujos No se.

Despues te paso la idea total del proyecto.

Saludos
Pedrot
Archivos
Pedrot-Texto en Shape-4.xlsm
No tienes los permisos para descargar los archivos.
(32 KB)

6 Re: Escribir texto en dibujo el 08/02/18, 05:36 pm

Igtelo

avatar
Hola Pedrot.

Ok, me agrada tu perseverancia, por la noche veo los 2 archivos que has subido, pero vamos por pasos ¿Sale? Ya son 2-3 preguntas...

Entra a la ayuda de VBA: Estando dentro de cualquier código, pulsa la tecla F1, en la ventana que aparece escribe: TextFrame y te aparece todo respecto a ello.

Ve éste aporte te ayudará como no tienes idea.

http://www.universoexcelforo.com/t1461-encontrar-ayuda-en-vba-p-nuestras-macros-videotutorial

Saludos
Ignacio Téllez

7 Re: Escribir texto en dibujo el 08/02/18, 09:51 pm

pedrot


Hola Igtelo

Como ves estoy acelerado

Te envío lo ultimo (olvida lo anterior)

Creé el texto4 guiandome en lo tuyo y viendo por allí.
Hasta aquí he llegado y no puedo quitar el relleno ni el borde al texto.

Habrá que darles nombre individual o agrupar ciertos dibujos No se.

Despues te paso la idea total del proyecto.

Saludos
Pedrot
Archivos
Pedrot-Texto en Shape-4.xlsm
No tienes los permisos para descargar los archivos.
(36 KB)

8 Re: Escribir texto en dibujo el 09/02/18, 01:44 am

Igtelo

avatar
Pedrot:

Pensé que tú habías hecho el código...
Te dejo algo más sencillo usando las mismas columnas de la hoja de cálculo y poniendo bordes.
Son sentencias muy fáciles de entender y van explicadas. Tienes que adaptar a tu archivo tomando como base todo lo que te explico, repito, es "muy sencillo".

¿Ya viste la ayuda de VBA y el aporte?

Saludos
Ignacio Téllez
Archivos
Igtelo-Rectángulos.xlsm
No tienes los permisos para descargar los archivos.
(28 KB)

9 Re: Escribir texto en dibujo el 09/02/18, 09:50 am

pedrot


Hola Igtelo

Perdona pero el código lo hice yo. Se que no está en nivel experto pero funcionan.

Lo que mandaste  deforma la pagina y si hay otras cosas en ella se modificarán.

Lo que busco es con la macro que te mandé  eliminar el borde y el relleno de los Textos que se escriben. ¿Despues se complicará mas? espero que no.

¿Como elimino el borde y el relleno del TextFrame?

el código es:

With ActiveSheet.Shapes.AddShape(msoShapeRectangle, _  l, t - 5, 12, h + 6).TextFrame
    .Characters.Text = texto
    .Characters.Font.Size = 6
    .Characters.Font.ColorIndex = 1
    .Characters.Font.Bold = False
    .Orientation = 2
    .HorizontalAlignment = 1
    .VerticalAlignment = 3
    .sin borde
    .sin relleno
     .nombre
End With

Otra cosa ¿Como hago para borrar los textos con el boton?

Saludos y gracias

10 Re: Escribir texto en dibujo el 09/02/18, 01:39 pm

Igtelo

avatar
Pedrot:

Te aseguro que el código NO lo hiciste tú, si así fuera sabrías en que parte de las sentencias agregaste la imagen, quitaste el color de fondo y le diste el borde.
Dicho en otras palabras, "ya lo hiciste", revisa tu código y encuentras las instrucciones que según tú hiciste...

Por otro lado te pregunté si habías visto la ayuda de VBA y no te "molestaste" en contestar, así que lo siento, ya no te apoyaré.

Ignacio Téllez

11 Re: Escribir texto en dibujo el 09/02/18, 03:28 pm

pedrot


Saludos

Si baje tu codigo y solo vi macros para pegar en excel.

Haste una pregunta.
¿Si el codigo no es de el, porque no le pregunta al que lo hizo como se elimina eso?

EL CODOGO ES MIO. NO TENGO CONOCIMIENTO DE OBJETOS. PROGRAMO A 'TRACCION DE SANGRE' COMO SE DICE. ALGUNAS COSAS LAS PUEDO, LAS PUEDO SACAR DEL Ayuda de BVA y viendo en internet

Gracias y ...

Contenido patrocinado


Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.