** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - macros en Power point - atributos de linea
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

macros en Power point - atributos de linea

 Responder Responder
Autor
Mensaje
isaro2002 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Julio/2018
Localización: MAdrid
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita isaro2002 Cita  ResponderRespuesta Enlace directo a este mensaje 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

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Prisión Brieva
Estado: Sin conexión
Puntos: 3151
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita lbauluz Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
isaro2002 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Julio/2018
Localización: MAdrid
Estado: Sin conexión
Puntos: 3
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita isaro2002 Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable