Retocar VBA de una macro

Goldberg,

No tengo ni idea de programar o tocar el código de VBA.

Yo tampoco...

;-)

Pero si no pones la macro y/o explicas *exactamente* qué WordArt estás
usando (o *subes*... YouSendIt
http://groups.google.es/group/micro...6d5cb0e27f
un ejemplo...) y los pasos que sigues... (que lo estás haciendo en modo de
Edición y *no* en modo de presentación, etc, etc, etc) es *un poco difícil*...

;-)

Como los WordArt tienen la salida de texto que tienen,

;-)

he visto que con una macro podría dejar todos los títulos generados en WordArt con el mismo aspecto. Me he creado una macro para eso (bajar la altura al 79%; subir el ancho al 115%, eliminar la línea de contorno, etc.)

Sub WordArt()
'
' Macro grabada el 20/05/2008 por Administrador
'

With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0#
.Line.Visible = msoFalse
.Height = 40.25
.Width = 229.5
End With
End Sub

(bajar la altura al 79%; subir el ancho al 115%) *esto* es *relativo* al tamaño original... Y si yo selecciono un WordArt y le aplico la macro... *en principio*... funciona

(Y si me olvido de las macros y uso “Copiar formato”... también funciona...
excepto con las dimensiones...)

El problema viene dado porque cuando creo la macro siempre hace referencia al shape u objeto identificado con un número en el que creé dicha macro y por tanto, con la generación de cada nuevo título en WordArt, como no encuentra el objeto de referencia se queda trastabillado.

¿En la misma presentación o en otra? (No es lo que obtengo... si voy
seleccionando WordArts y les voy aplicando la macro... funciona... Si
selecciono *todos* los WordArts y les aplico la macro... *también*
funciona...)

Sabríais cómo podría hacer para que el shape sobre el que se van a generar los cambios sea simplemente el que esté activo?

¿Pruebas con la anterior?

Gracias por adelantado y saludos!

Eh, eh... ¡No tan rápido!...

;-)

Como los WordArt tienen la salida de texto que tienen,

¿Qué pasa si...?

Escribes *TODOS* los textos que necesites en *UN* WordArt... línea por
línea...

Lo formateas a tu gusto...

Copias el WordArt
Pegas como metaarchivo mejorado
Desagrupas
Desagrupas

y agrupas lo que te interese...?

¿Sí? ¿No?

;-)

Muy cordialmente

Enric
Enric Mañas [MS MVP Office - PowerPoint]


"Goldberg00" escribió:

Hola a todos.

No tengo ni idea de programar o tocar el código de VBA. Sin embargo suelo
crearme mis propias macros y suelen resultar de mucha utilidad. Las macros
normalmente las uso en Excel y alguna en Word pero hasta ahora no había visto
la necesidad de crearme una en PowerPoint. Como los WordArt tienen la salida
de texto que tienen, he visto que con una macro podría dejar todos los
títulos generados en WordArt con el mismo aspecto. Me he creado una macro
para eso (bajar la altura al 79%; subir el ancho al 115%, eliminar la línea
de contorno, etc.) El problema viene dado porque cuando creo la macro siempre
hace referencia al shape u objeto identificado con un número en el que creé
dicha macro y por tanto, con la generación de cada nuevo título en WordArt,
como no encuentra el objeto de referencia se queda trastabillado.

Sabríais cómo podría hacer para que el shape sobre el que se van a generar
los cambios sea simplemente el que esté activo?

Gracias por adelantado y saludos!

Goldberg.

WinXP Pro SP2
Office 2003 Pro