Completed

Visio experto en vba

Published on the August 26, 2022 in IT & Programming

About this project

Open

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

Project overview

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.

Category IT & Programming
Subcategory Desktop apps
What is the scope of the project? Small change or bug
Is this a project or a position? Project
I currently have I have specifications
Required availability As needed
Required platforms Windows

Delivery term: Not specified

Skills needed

VBA Microsoft Visio

Want to start working on this project?

Log into your Workana account or Register today. Boost your freelance work!

Other projects posted by Hugo D.