[Visio 2007 / Excel 2000 / VBA] Visiorapportopmaak aanpassen

Pagina: 1
Acties:

Onderwerpen


  • CappieL
  • Registratie: November 2006
  • Laatst online: 15:33
In Visio 2007 heb ik een proces-tekening aangemaakt en kan hiervan mbv een Report automatisch in Excel (2000) een inventaris-lijst van maken. Nu ben ik niet tevreden met de standaard-opmaak van deze lijst en wil ik deze graag met een macro aanpassen.
Nu ben ik slechts een beginner in programmeren in VBA en wil ik het volgende:
- Ik druk op een Command-Button in Visio
- Visio schakelt over naar een reeds geopend Excel-bestand genaamde 'Map 1'.
- Macro past in Excel de opmaak aan (achtergrondkleur, centreren etc), kopieert de tabel naar klembord.
- Schakel terug naar Excel
- Plakken in Visio
- Klaar!

Ik heb geprobeerd dit werkend te krijgen door een macro op te nemen, maar wanneer ik uit Visio ga, neemt de VBA-recorder niets meer op. Ik denk dat ik alles in een Visio-macro moet opnemen aangezien Visio elke keer weer een nieuw Excel-bestand aanmaakt.

Verwijderd

alles wordt inderdaad best vanuit visio bestuurd.
je kan gezien de werkwijze gewoon een nieuwe instantie van excel aanmaken. voorbeeldje uit het hoofd
Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
sub opmaakaanpassen
  dim ExcelApp as object
  dim excelsheet as object

  'visiostuff
  set excelapp=createobject("excel.application")
  set excelsheet=excelapp.workbooks.add.worksheets(1)
  'rapport plakken
  excelsheet.paste
  'opmaakstuff
  excelsheet.range("a1:d20").fond.bold=true
  'opmaakstuff
  excelsheet.range("a1:d20").copy
  'visio plakken stuff
  'excel sluiten
  excelsheet.parent.close false
  excelapp.quit
  set excelapp=nothing
end sub

  • CappieL
  • Registratie: November 2006
  • Laatst online: 15:33
Thanks! Zal hier morgen weer mee aan de slag gaan.
Zat al heel moeilijk te doen met SendKeys, maar echt lekker gaat dat niet (lees: heel moeilijk).