Avatar billede friis5 Novice
17. september 2008 - 16:49 Der er 1 løsning

Størrele og placering af figur (object / shape) i powerpoint

Søger kode der finder størrelse og placering af en given figur i powerpoint.

Takker :)
Avatar billede friis5 Novice
06. oktober 2008 - 09:32 #1
'Kører alle slides igennem
    For i = 1 To ActivePresentation.Slides.Count

        ActivePresentation.Slides(i).Select

'Kører alle figurer på sliden igennem
        For j = 1 To ActivePresentation.Slides(i).Shapes.Count

'Hvis figuren er linket - bliver den kopieret (størrelse og placering gemt), slettet og indsat som billede
        If ActivePresentation.Slides(i).Shapes(j).Type = msoEmbeddedOLEObject Or ActivePresentation.Slides(i).Shapes(j).Type = msoLinkedOLEObject Then 
            With ActivePresentation.Slides(i).Shapes(j)
                oLeft = .Left
                oTop = .Top
                oWidth = .Width
                oHeight = .Height
                .Copy
                .Delete
            End With
            ActiveWindow.ViewType = ppViewNormal
            ActiveWindow.View.PasteSpecial ppPasteMetafilePicture
            With ActiveWindow.Selection.ShapeRange
                .Left = oLeft
                .Top = oTop
                .Width = oWidth
                .Height = oHeight
            End With
'Da der bliver byttet rundt på objekt-rækkefølgen, skal der tjekkes forfra (omstændigt men sikkert)
            j = 1
            ActiveWindow.ViewType = ppViewSlideSorter
        End If
        Next j
    Next i


Den kode jeg søgte (kombineret med et tidligere spørgsmål i forummet) - Ikke mange svar dog :/
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
Kategori
Kurser inden for grundlæggende programmering

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