Zoomfunktion für Powerpoint

Mit diesem Quellcode kann auf Bilder in Powerpointpräsentation gezoomt werden. Einfach auf das Bild klicken und es erscheint in voller Bildschirmgröße (Höhe oder Breite).

Folgenden Quellcode einfach in ein neues Modul in Power Point einfügen und als Aktionseinstellung für das Bild -> Aktion beim Klicken -> Makro ausführen -> Zoom angeben. Fertig!

Public Sub Zoom(shp As Shape)
    Dim intSlide As Long
    Dim SldHöhe As Double, SldBreite As Double
    Dim ShpHöhe As Double, ShpBreite As Double
    Dim Zoom As Double

    intSlide = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
    SldHöhe = ActivePresentation.PageSetup.SlideHeight
    SldBreite = ActivePresentation.PageSetup.SlideWidth
    ShpHöhe = shp.Height
    ShpBreite = shp.Width

    If ShpHöhe = SldHöhe Or ShpBreite = SldBreite Then
        shp.Delete
        Exit Sub
    End If

    If SldHöhe / ShpHöhe > SldBreite / ShpBreite Then
        Zoom = SldBreite / ShpBreite
    Else
        Zoom = SldHöhe / ShpHöhe
    End If

    shp.Copy
    With ActivePresentation.Slides(intSlide).Shapes.Paste
        .Left = (SldBreite - ShpBreite * Zoom) / 2
        .Top = (SldHöhe - ShpHöhe * Zoom) / 2
        .Width = shp.Width * Zoom
        .Height = shp.Height * Zoom
    End With
End Sub

Code eingefügt mit Syntaxhighlighter 4.15
Your rating: Keine Average: 5 (1 vote)