Kopi rutine der flytter elementer fra powerpoint til ms Visio

Hvilke elementer snakker vi om ?

henrik

forskellige elementer /tegninger i powerpoint skal overføres til Visio.
tekster, streger

Her er et rent vb-eksempel der åbner en powerpoint præsentation og kopiere indholdet over i en ny visio tegning...

Der skal eksistere en tom visiotegning i forvejen - det er muligt man kan komme uden om dette men det kunne jeg ikke lige nå

Desuden skal du have en reference til visio og powerpoint i dit vb-project jeg har brugt powerpoint 10.0 (xp) og visio 2002

Dim v As New Visio.Application
Dim p As New PowerPoint.Application

p.Visible = True
p.Presentations.Open "C:\tester.ppt" ', msoCTrue, msoTrue
p.ActivePresentation.Slides(1).Shapes.SelectAll
p.ActivePresentation.Slides(1).Copy
 
v.Visible = True
v.Documents.Add "c:\tester.vsd"
v.ActivePage.Paste
v.ActiveWindow.SelectAll
v.ActiveWindow.Selection.Ungroup
v.ActiveDocument.SaveAs "c:\testerny.vsd"

p.ActivePresentation.Close
v.ActiveDocument.Close


henrik :-)

Henrik> det ser spændende ud, men PP kræver en "user-defined type" hvordan definerer jeg det ??

ikke forstået er det en bestemt kodelinie der fejler ?

Når jeg indsætter dit kode forslag i et modul i PowerPoint og afvikler det, når den kun til "dim V ..." hvor efter den fejler med medddelelsen "user-defined type not defined"
jeg antager at man skal type definere "visio.application" før den kan assignes til en variabel.
jeg blot ikke hvordan det gøres

Har du lavet en referance til visio i din vba kode ?

henrik :-)

Du skal desuden være opmærksom på at hvis du sætter koden ind i powerpoint i stedet for et vb projekt er det muligt dine powerpointobjekter skal se lidt anderledes ud....

henrik :-)

AHA - det er vel netop den reference jeg ikke ved hvordan man laver

hvordan laver jeg et VB projekt uden for Office

du skal have installeret visual studio eller visual basic.... men du kan også lave referancer i powerpoint du går ind i Tools --> references i vb-delen af powerpoint

henrik :-)