Kopi'er billede fra Excell til Powerponit

Marker diagrammet
Ctrl-C
Skift til PowerPoint
Ctrl-V (for at indsætte diagrammet, som det serud nu, eller...
Rediger->Indsæt speciel, marker feltet Indsæt kæde, og klik OK
for at oprette en kæde, der automatisk ajourfører diagrammet i PowerPoint ved ændringer i Excel-filen.

OK - jeg skulle nok have været lidt mere præcis. Jeg skal bruge en makro til at gøre det. Når jeg optager en makro som gør det forsvinder de linier som foregår i Powerpoint.

Denne makro kan kopiere den aktive graf til en ny powe4r point fil, som et billede. Du skal sætte en reference til Power Point object library før det virker.

Sub copyToPowerPoint()
    Dim pp As PowerPoint.Application
    Dim sl As PowerPoint.Slide
   
    Dim pres As PowerPoint.Presentation
    Dim pptShapes As PowerPoint.ShapeRange
    Set pp = New PowerPoint.Application
   
    pp.Visible = msoCTrue
    Set pres = pp.Presentations.Add(msoCTrue)
   
    Dim i As Integer

    Set sl = pres.Slides.Add(1, ppLayoutBlank)
    ActiveChart.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
    Set pptShapes = sl.Shapes.PasteSpecial(ppPasteEnhancedMetafile)
    pptShapes.Height = 450.25
    pptShapes.Width = 732.875
    pptShapes.Left = 0
    pptShapes.Top = 60.25

   
    Set pp = Nothing
End Sub

/Christian
ck@officekonsulenterne.dk