Toon posts:

[Visio/VB]Visio stencil genereren

Pagina: 1
Acties:

Verwijderd

Topicstarter
Wat ik wil is de producten die vanuit een Excel sheet gelezen worden combineren met een afbeelding uit een directory en deze plaatsen in een zogeheten "stencil" in Visio. Op deze manier kan je automatisch bibliotheken van je producten bijhouden.

Dit lukt ook helemaal, behalve dan het automatisch laten genereren van de bijbehorende icon. Als je een afbeelding vanuit de pagina naar het stencil sleept genereert Visio een icoon voor je. Maar helaas heb ik dit nog niet programmeertechnisch op kunnen lossen.
Een zoektocht door de MS Visio nieuwsgroepen heeft helaas ook niks opgeleverd.

Iemand ideeën/suggesties?

Hieronder de code die ik gebruik voor de import:
Visual Basic .NET:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
'Maak een leeg document aan
Set docObj = appVisio.Documents.Add("")

'Voeg een master toe
Set mastersObj = docObj.Masters
Set masterObj = mastersObj.Add

'Eigenschappen van de master (artikelnaam en afbeelding)
masterObj.Name = strArticleName
Set shpObj = masterObj.Import(strImageFileName)

'Sla het stencil op
docObj.SaveAs strStencilName
docObj.Close