Avatar billede passiflora Juniormester
10. februar 2016 - 12:15

Kopiering af excel range ind i powerpoint som range

Hej

Jeg forsøger at kopierer noget fra et excel ark ind i en eksisterende PowerPoint.

Jeg bruger Late Binding.

Jeg kopierer det som excel.range og vil gerne paste det som range og ikke som shape, jeg vil gerne kun have indholdet med over, og ikke baggrund mm

Jeg har sat min makro ind herunder ...
Er det muligt ... ?

Sub Latebinding()

Dim otherApp As Object
Dim otherDoc As Object
Dim otherSpecificObjects As Object

Set otherApp = CreateObject("Powerpoint.Application")
Set otherApp = GetObject(, "Powerpoint.Application")

Dim PPApp As Object
Dim PPPres As Object
Dim PPSlide As Object
Dim rng As Excel.Range

Set PPApp = CreateObject("Powerpoint.Application")
Set PPPres = PPApp.Presentations.Open("P:\sb\test.ppt")
Set rng = ThisWorkbook.ActiveSheet.Range("A2:g45")

rng.Copy
PPPres.Slides(1).Shapes.Paste

Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
Stort CIO-interview: Lemvigh-Müllers milliard-omsætning er blevet digital