Formas-->Efectos 3D--> Profundidad

Buenas tardes.

En word 2003 yo podía dibujar una forma, darla efecto 3D y ponerla una
profundidad variable a mi gusto (había una casilla para escribir un número).

Ahora en word 2007 hago lo mismo, creo la forma, la doy un efecto 3D y
no puedo escoger la profundidad. Sólo me da unos valores normalizados de
36,72,... Pero yo necesito que sea de 18 u otro valor cualquiera
que no está en la lista.

Alguien sabe como solucionarlo?

Un saludo.

Hola Javier
Parece ser que ha desaparecido esta opción.
Yo tengo un par de macros para solucionar ese problema
OneTimeSetUp() se ejecuta una vez e incluye en el menú de contexto de una
autoforma la opción de cambiar la profundidad
espero te sirva

un saludo
Pedro J.

Sub OneTimeSetUp()

With CommandBars("Shapes").Controls.Add(Type:=msoControlButton)
.Caption = "Custom Depth"
.OnAction = "MyCustomDepth"
.FaceId = 1379
End With

End Sub

Sub MyCustomDepth()

On Error GoTo Done
NewCustomDepth = InputBox("Please Enter New Custom Depth", _
"3-D Setting: Custom Depth", _
CommandBars.FindControl(ID:72).Text)

If NewCustomDepth <> "" Then
CommandBars.FindControl(ID:72).Text = NewCustomDepth
End If

Done: End Sub

Buenas tardes.
En word 2003 yo podía dibujar una forma, darla efecto 3D y ponerla una
profundidad variable a mi gusto (había una casilla para escribir un
número).
Ahora en word 2007 hago lo mismo, creo la forma, la doy un efecto 3D y
no puedo escoger la profundidad. Sólo me da unos valores normalizados de
36,72,... Pero yo necesito que sea de 18 u otro valor cualquiera
que no está en la lista.
Alguien sabe como solucionarlo?
Un saludo.

Ok

Parece que hace lo que quiero.

Muchas gracias.
Un saludo.

"Infinitogool" escribió en el mensaje de
noticias:

Hola Javier
Parece ser que ha desaparecido esta opción.
Yo tengo un par de macros para solucionar ese problema
OneTimeSetUp() se ejecuta una vez e incluye en el menú de contexto de una
autoforma la opción de cambiar la profundidad
espero te sirva

un saludo
Pedro J.

Sub OneTimeSetUp()

With CommandBars("Shapes").Controls.Add(Type:=msoControlButton)
.Caption = "Custom Depth"
.OnAction = "MyCustomDepth"
.FaceId = 1379
End With

End Sub

Sub MyCustomDepth()

On Error GoTo Done
NewCustomDepth = InputBox("Please Enter New Custom Depth", _
"3-D Setting: Custom Depth", _
CommandBars.FindControl(ID:72).Text)

If NewCustomDepth <> "" Then
CommandBars.FindControl(ID:72).Text = NewCustomDepth
End If

Done: End Sub

Buenas tardes.
En word 2003 yo podía dibujar una forma, darla efecto 3D y ponerla una
profundidad variable a mi gusto (había una casilla para escribir un
número).
Ahora en word 2007 hago lo mismo, creo la forma, la doy un efecto 3D y
no puedo escoger la profundidad. Sólo me da unos valores normalizados de
36,72,... Pero yo necesito que sea de 18 u otro valor cualquiera
que no está en la lista.
Alguien sabe como solucionarlo?
Un saludo.

je.

He añadido varias veces la macro al menú de contexto y ahora no encuentro
como quitar alguna de ellas

¿Sabrias como hacerlo?

Un saludo.

Hola Chicos :-) :-)

por si os gustaria tener esa opcion pero ya en la pestaña formato de
office Word 2007>>

http://www.teladearana.es/content/view/90/85/

Me falta terminar de desarrollar el articulo pero como llevo dos o tres
articulos mas entre manos y tambien llevo un monton de gaitas mas :)) pues
para que lo probeis haber que fallos se ven o que os gustaria ponerle como
adicional ...

Para lo que preguntas Javier >>

'][

CommandBars("Shapes").Controls("Custom Depth").Delete

'][

y ...Comentais :) ?

Saludos
Monica



www.fermu.com
www.teladearana.es
www.elguille.info
"Javier Terán González" escribió en el
mensaje de noticias
news:

je.

He añadido varias veces la macro al menú de contexto y ahora no encuentro
como quitar alguna de ellas

¿Sabrias como hacerlo?

Un saludo.