Imprimir página | Cerrar ventana

macros en Power point - atributos de linea

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Otros Productos Microsoft
Descripción del foro: PowerPoint, Navision, Visio, FrontPage, InfoPath etc
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83828
Fecha de impresión: 19/Junio/2019 a las 13:11


Tema: macros en Power point - atributos de linea
Publicado por: isaro2002
Asunto: macros en Power point - atributos de linea
Fecha de publicación: 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




Respuestas:
Publicado por: lbauluz
Fecha de publicación: 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


-------------
Un saludo desde la prisión de Estremera (Madrid VII)


Publicado por: isaro2002
Fecha de publicación: 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



Imprimir página | Cerrar ventana