Terminado

Visio experto en vba

Publicado el 26 Agosto, 2022 en Programación y Tecnología

Sobre este proyecto

Abierto

Hola que tal necesito un experto en vba y además que sepa moverse en visio, ya que tengo un Org Chart(organigrama con jefes y empleados) hecho en visio mediante un excel, el reto es las columnas o variables que trae el excel deben de formar una url casi como http://dominio.' Columna1.' Texto/ '.columna2', ya esta trabajado un poco el  script para ponerlo en macro pero necesito algunas modificaciones como que siempre se ejecute independientemente el documento, y además algunas veces funciona algunas veces no y no se como hacer el debug. Aquí pongo el script:

Vba macro.-
' Asignar enlaces a cada shape dependiendo el id de empleado
Sub asignarEnlaces()
Dim pg As Page
Dim sp As Shape
Dim id As String

For Each pg In ActiveDocument.Pages
  For Each sp In pg.Shapes
    If (sp.Text <> "") Then
      id = Split(sp.Text, vbNewLine)(0)
      Debug.Print id
    End If
  Next
Next
End Sub

'https://organigrama.megamedia.digital/miembros/14977/profile


Sub asignarEnlaces()
Dim pg As Page
Dim sp As Shape
Dim id As String
Dim i As Integer


For Each pg In ActiveDocument.Pages
  For Each sp In pg.Shapes
    If (sp.Text <> "") Then
      id = ""
      For i = 1 To Len(sp.Text)
        car = Mid(sp.Text, i, 1)
        If IsNumeric(car) Then
        id = id & car
        Else
        Exit For
        End If
       
      Next
       
     
     
     
    End If
  Next
Next
End Sub

Contexto general del proyecto

El objetivo del proyecto es tener un link para cada "shape" o cuadro del organigrama que se cra en visio y se exporta en PDF, el organigrama se hace mediante el wizard o asistente de visio y al momento de realizarse se debe ejecutar el macro que pone el link a cada shape ya que cada shape tiene inormación proveniente del excel original.

Categoría Programación y Tecnología
Subcategoría Aplicaciones de escritorio
¿Cuál es el alcance del proyecto? Bug o cambio pequeño
¿Es un proyecto o una posición? Un proyecto
Actualmente tengo Tengo las especificaciones
Disponibilidad requerida Según se necesite
Plataformas requeridas Windows

Plazo de Entrega: No definido

Habilidades necesarias

Otros proyectos publicados por H. D.