Kan man lave en makro der kopiere fra Excel til Powerpoint?

Ja - det kan man godt.
Koden er nogle år gl. - skal se om jeg kan finde den.

wow... du er godt informeret inden for makro og VB ;)

Eksempel - hvor et diagram overføres til PPT:

PPT-filen er oprettet i samme mappe som XLS-filen ("diagram.ppt")
NB: sti-angivelsen <---tilpasses

Endvidere skal der tilføjes en reference i XLS-VBA : Microsoft PowerPoint - findes i VBA-vinduet under menupunktet Tools | References - sæt flueben udfor Micrs.PPT

Kode ligger i regnearket:

Const sti = "C:\Documents and Settings\pb\Skrivebord\0612XLS_PPT\" '<---- tilpasses
Dim pp
Private Sub Begynd()
    Set pp = CreateObject("PowerPoint.application")
    pp.Visible = True
   
Rem Åbne for redigering
    With pp.Presentations
        .Open Filename:=sti + "diagram.ppt"
    End With

    Lav_diagram
   
    ActiveChart.ChartArea.Copy
   
Rem Indsæt diagram
    With pp
        .ActiveWindow.View.GotoSlide Index:=1
        .ActiveWindow.ViewType = ppViewSlide
       
        .ActiveWindow.View.Paste
    End With
'      .ActiveWindow.View.PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:= _
'      wdFloatOverText, DisplayAsIcon:=False
   
    pp.ActivePresentation.Save
    pp.ActivePresentation.Close

    Set pp = Nothing
End Sub
Sub Lav_diagram()
    Range("B3:E4").Select
    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=Sheets("Ark2").Range("B3:E4"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Ark2"
    With ActiveChart.Axes(xlCategory)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
    With ActiveChart.Axes(xlValue)
        .HasMajorGridlines = False
        .HasMinorGridlines = False
    End With
    ActiveChart.HasLegend = False
    ActiveChart.Axes(xlValue).Select
    ActiveChart.ChartArea.Select
    ActiveSheet.Shapes(1).IncrementLeft 173.25
    ActiveSheet.Shapes(1).IncrementTop -81#
End Sub

Vil du ikke lave et hurtigt svar så jeg kan give dig nogle point :)

Har først fået tjekket op på det nu.

//Paw

jo da - OK.........