[Visio 2007 / Excel 2000 / VBA] Visiorapportopmaak aanpassen

Pagina: 1
Acties:

Onderwerpen


  • CappieL
  • Registratie: November 2006
  • Laatst online: 23:12
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.

Home Assistant HP T630, PV (Enphase, 4000 Wp) 6 x IQ8+ ZW, 2 x IQ8+ NW, 2 x IQ8+ ZO, Zendure SF 2400AC (5.76 kWh)


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: 23:12
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).

Home Assistant HP T630, PV (Enphase, 4000 Wp) 6 x IQ8+ ZW, 2 x IQ8+ NW, 2 x IQ8+ ZO, Zendure SF 2400AC (5.76 kWh)