|
Responder ![]() |
Autor | |
isaro2002 ![]() Nuevo ![]() ![]() Unido: 05/Julio/2018 Localización: MAdrid Estado: Sin conexión Puntos: 3 |
![]() 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
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador ![]() ![]() Unido: 29/Marzo/2005 Localización: La Gloria Estado: Sin conexión Puntos: 3657 |
![]() |
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
|
|
El Búho es un pajarraco
|
|
![]() |
|
isaro2002 ![]() Nuevo ![]() ![]() Unido: 05/Julio/2018 Localización: MAdrid Estado: Sin conexión Puntos: 3 |
![]() |
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
|
|
![]() |
Responder ![]() |
|
Tweet
|
Ir al foro | Permisos de foro ![]() Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |