Oprette dias i power point via makro i excel

Jeg har en skabelon i power point, som jeg gerne vil bruge hver gang.

Du kan jo kæde fra excel til powerpoint. Har er en makro der så kan gennem i powwerpoint.

Sub gem()

    Dim strFilNavn As String
    Dim strHdMappe As String

    strHdMappe = "c:\"

    filnavn = InputBox("Gem regneark som:", "Gem dagens prognonseafvigelse")
   
    strFilNavn = filnavn & " - " & Format(Date, "dd.mm.yy")

    ActivePresentation.SaveAs FileName:=strHdMappe & strFilNavn    ' Aktiv efter gem

End Sub

Har jeg forklaret mig rigtigt? Et markeret område i excel regnearket skal lægges over i power point, som et dias i en fremvisning. Dette dias skal ligge i en mappe i power point, som brugeren skal navngive via en dialogboks. Det skal være muligt, at bruge en skabelon i power point til at oprette diasset (min pp skabelon. Hvis ønskes skal der også være mulighed for at lægge flere dias i samme mappe (i power point). Puha - har jeg lovet for lidt point?

Er der ikke nogen, der har et bud?

Jeg må desværre melde pas... ;-)

Hvorledes kæder jeg fra excelfil til powerpoint?

Flg kode er fundet på nettet, men den giver en fejl
"ActiveX component can`t create objekt" i nedenstående
Set PPApp = GetObject(, "Powerpoint.Application")

og her er hele koden:

Sub RangeToPresentation()

Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide

If Not TypeName(Selection) = "Range" Then
    MsgBox "Please select a worksheet range and try again.", vbExclamation, _
        "No Range Selected"
Else
   
    Set PPApp = GetObject(, "Powerpoint.Application")
    Set PPPres = PPApp.ActivePresentation
    PPApp.ActiveWindow.ViewType = ppViewSlide
    Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)
   
    Selection.CopyPicture Appearance:=xlScreen, _
        Format:=xlPicture

    PPSlide.Shapes.Paste.Select
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
    PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
    Set PPSlide = Nothing
    Set PPPres = Nothing
    Set PPApp = Nothing
End If

End Sub

Lerskov, vil du ligge et svar. Du forsøgte - tak for det. Opretter mit sidste spørgsmål, som nyt spørgsmål

tag du bare selv point.. Jeg har ikke løst nogen opgave. Skal nok prøve at kigge på den kode du har fundet, men får ikke tid før søndag.

God Weekend

Vi snakkes ved. Lukker