macro y cuadro de texto

Qué tal Juan. Hola de nuevo.
Creo que no dejé claro a qué me refería cuando utilizaba el término "cuadro
de texto".
Después de hacer probatinas y probatinas con este último código, resulta que
funciona aplicando un cuadro de texto como control activeX y me resultaría
útil si pudiera manejar el formato de texto en cuanto a letra, color,
tamaño... e incluso fondo y creo que en ese tipo de control por lo que he
visto no he podido hacerlo.

Cuando hablaba de un cuadro de texto, me refería al cuadro de texto que
insertamos desde: menú/insertar/formas/cuadro de texto.

Después se me ha ocurrido que el error en tiempo de ejecución que me
aparecía podía ser debido a que el cuadro de texto (la "forma" a la que me
refiero) tengo que insertarla en la hoja y el código por eso no la
reconocía.
En fin, qué se te ocurre amigo?
Si pudiera controlar el formato del contenido en el control activeX, este
código que me has enviado es PERFECTO!!! me gusta, :D sí, señor!!. jeje




"Juan Español" escribió en el mensaje de
noticias:OA$

Perfecto...
Te propongo utilizar un botón de comando y además creo que te gustará la
idea:
Premisa:
- Queremos que dos cuadros (a la vez) de textos llamados cuadro1 y cuadro2
se oculten/visualicen al pulsar un botón de comando llamado boton.

En el botón de comando pon este código:

Private Sub boton_Click()
If ActiveSheet.cuadro1.Visible = True Then
ActiveSheet.cuadro1.Visible = False
ActiveSheet.cuadro2.Visible = False
ActiveSheet.boton.Caption = "Muestra Ayuda"
Else
ActiveSheet.cuadro1.Visible = True
ActiveSheet.cuadro2.Visible = True
ActiveSheet.boton.Caption = "Quita Ayuda"
End If
End Sub

Para que se cumpla lo que dije:

VIC, te aseguro que vamos

Ese "vamos" es por que tú puedes cambiar "Muestra Ayuda" y "Quita Ayuda"
por lo que quieras.

Al estilo Obama... "PODEMOS"...

Tres cuestiones de principio:
1º.-Las formas, las autoformas, las imágenes, etc. no tienen la propiedad
visible modificable, que yo sepa
Por lo tanto mal vamos por ese camino.

2º.- El cuadro de texto que pones en la hoja que tu quieras como cuadro de
control, si tiene la propiedad "visible" modificable, y por lo tanto puede
aparecer/desaparecer.
También puedes poner el texto, el color, la fuente, fondo, etc, a tu gusto;
estando en modo diseño, botón derecho del ratón sobre el objeto y elijes
propiedades.
No cambies aquello que no sabes que significa, para no tener luego
comportamientos extraños.

3º.-En mi código he supuesto que tanto el botón como los cuadros de texto,
están en la misma hoja, por eso no hace falta hacer mención al nombre de la
hoja.

Espero que ahora sí podamos llegar a buen puerto.

"VIC" escribió en el mensaje de noticias
news:

Qué tal Juan. Hola de nuevo.
..
.

ya estamos llegando a buen puerto... ;)

Suponía que no podrían modificarse las autoformas con el código ( es una
lástima, así que espero que los desarrolladores de microsoft tomen nota y
puedan permitir más dinamismo con las autofomas, incluso permitirlas
efectuar fórmulas. Excel, sería la repera entonces,
uassssssssssss!!!!! )

Estuve viendo las propiedades del cuadro de texto que dices (jeje.. la
mayoría me suenan a chino y aunque he hecho probatinas, muchos de los
cambios no tengo ni idea como comprobarlos); pero el manejo de texto no es
comparable al que puedes hacer en una autoforma.

Bueno nen, pos naaa... me resigno y tendré que utilizar el control de
activex hasta que Microsoft cambie el asunto, jejeje (espero que lean el
mensajito)

Hemos llegado, espero que para bien a buen puerto Juan Español (el
explorador) :)
Un abrazo desde orillas del Mediterráneo.





"Juan Español" escribió en el mensaje de
noticias:

Tres cuestiones de principio:
1º.-Las formas, las autoformas, las imágenes, etc. no tienen la propiedad
visible modificable, que yo sepa
Por lo tanto mal vamos por ese camino.

2º.- El cuadro de texto que pones en la hoja que tu quieras como cuadro de
control, si tiene la propiedad "visible" modificable, y por lo tanto
puede aparecer/desaparecer.
También puedes poner el texto, el color, la fuente, fondo, etc, a tu
gusto; estando en modo diseño, botón derecho del ratón sobre el objeto y
elijes propiedades.
No cambies aquello que no sabes que significa, para no tener luego
comportamientos extraños.

3º.-En mi código he supuesto que tanto el botón como los cuadros de texto,
están en la misma hoja, por eso no hace falta hacer mención al nombre de
la hoja.

Espero que ahora sí podamos llegar a buen puerto.

"VIC" escribió en el mensaje de noticias
news:

Qué tal Juan. Hola de nuevo.
..
.

hola, chicos !

ya estamos llegando a buen puerto... ;)
Suponia que no podrian modificarse las autoformas con el codigo
(... asi que espero que los desarrolladores de microsoft tomen nota y puedan permitir mas dinamismo con las autofomas
incluso permitirlas efectuar formulas. Excel, seria la repera entonces, uassssssssssss!!!!! ) (...)

con el siguiente codigo, asignado (p.e.) a cualquier otra autoforma/boton/figura/...
puedes alternar entre mostrar/ocultar otra autoforma (p.e. un cuadro de texto llamado "Cuadro de texto 1")
(estas pasan por la coleccion "Shapes" de las hojas de calculo)

Sub Mostrar_Ocultar_CuadroDeTexto()
With ActiveSheet.Shapes("cuadro de texto 1")
.Visible = Not .Visible
End With
End Sub

saludos,
hector.

eh, eh, que dije "que yo sepa", no que HM no sepa... que hay una
enooormeeeeeee diferencia.

Saludos Héctor.

"Héctor Miguel" escribió en el mensaje de
noticias news:%

hola, chicos !

ya estamos llegando a buen puerto... ;)
Suponia que no podrian modificarse las autoformas con el codigo
(... asi que espero que los desarrolladores de microsoft tomen nota y
puedan permitir mas dinamismo con las autofomas
incluso permitirlas efectuar formulas. Excel, seria la repera entonces,
uassssssssssss!!!!! ) (...)

con el siguiente codigo, asignado (p.e.) a cualquier otra
autoforma/boton/figura/...
puedes alternar entre mostrar/ocultar otra autoforma (p.e. un cuadro de
texto llamado "Cuadro de texto 1")
(estas pasan por la coleccion "Shapes" de las hojas de calculo)

Sub Mostrar_Ocultar_CuadroDeTexto()
With ActiveSheet.Shapes("cuadro de texto 1")
.Visible = Not .Visible
End With
End Sub

saludos,
hector.