macros en Power point - atributos de linea

   Hola! estoy haciendo una macro para insertar una flecha con unas características determinadas y no encuentro la característica de línea curva....
tengo esto:

Set flecha = ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeChevron, 21, 10, 0.39, 0.81)
    flecha.Fill.ForeColor.SchemeColor = ppAccent2
    flecha.Line.Visible = msoCTrue

alguien sabe como lo puedo hacer?
y que diferencia hay entre el icono verde y el icono mano

gracias

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
isaro2002 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 05/Julio/2018 Localización: MAdrid Estado: Sin conexión Puntos: 3	Tema: macros en Power point - atributos de linea Enviado: 05/Julio/2018 a las 18:35
	Hola! estoy haciendo una macro para insertar una flecha con unas características determinadas y no encuentro la característica de línea curva.... tengo esto: Set flecha = ActiveWindow.Selection.SlideRange.Shapes.AddShape(msoShapeChevron, 21, 10, 0.39, 0.81) flecha.Fill.ForeColor.SchemeColor = ppAccent2 flecha.Line.Visible = msoCTrue alguien sabe como lo puedo hacer? y que diferencia hay entre el icono verde y el icono mano gracias

lbauluz Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Administrador Unido: 29/Marzo/2005 Localización: ROC, NY Estado: Sin conexión Puntos: 3293	Enviado: 05/Julio/2018 a las 22:24
	Mira a ver si algo as'i Sub flechaShape() Const RATIO = 3.14159265358979 / 180 ' Convertir de RAD a GRA Const RADIO = 30 ' Radio que he decidido yo al azar Dim shp As Shape Dim sld As Slide Dim n As Integer Dim o As Integer Dim pts(1 To 100, 1 To 2) As Single o = 1 ' Definir arco radio 30, en este caso For n = 90 To 0 Step -1 pts(o, 1) = Sin(n * RATIO) * RADIO pts(o, 2) = Cos(n * RATIO) * RADIO o = o + 1 Next n ' Crear shape Set sld = Application.ActiveWindow.View.Slide Set shp = sld.Shapes.AddCurve(pts) ' Añadir flecha shp.Line.BeginArrowheadStyle = msoArrowheadTriangle End Sub Luis
	Those are my principles, and if you don't like them... well, I have others. Groucho Marx

isaro2002 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 05/Julio/2018 Localización: MAdrid Estado: Sin conexión Puntos: 3	Enviado: 09/Julio/2018 a las 20:09
	Muchas gracias por tu contestación Luis! Probaré a ver si runea. Si no, igual lo voy a plantear de otra manera.... Metiendo la forma en grupo en el master template y creando un boton que llame al objeto desde ahí.... ... no se si será máas sencillo Mil gracias, Irina