** 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

Tema cerradomacros en Power point - atributos de linea

 Responder Responder
Autor
Mensaje Invertir el orden de clasificación
isaro2002 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Julio/2018
Localización: MAdrid
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: macros en Power point - atributos de linea
    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
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: Binghamton, NY
Estado: Sin conexión
Puntos: 3350
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
Mens sana in corpore in sepulto
Arriba
isaro2002 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Julio/2018
Localización: MAdrid
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje 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
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable