Hallo,

ich hänge momentan in einem Problem eine  Form (z.B. roten Kreis) moit definierter Größe in PowerPoint am besten über eine Funktionstaste z.b. "F4" in eine Folie einzufügen. Ich möchte einfach, dass nachd em Öffnen dieser Präsentation über die Tasten F1-F4 verschiedenfarbige Kreise mit definierter Größe in der aktuellen Folie eingefügt werden.

In Excel haut es hin. Da habe ich die Möglichkeit unter diese Arbeitsmappe die Funktionstasten zu belegen. Leider funktioniert das so gar nicht in PowerPoint.

Wer kann mir helfen?

Folgenden Code möchte ich gerne in einer PPT-Datei nutzen.

Private Sub Workbook_Activate()

Application.OnKey "{F3}", "red_shape"
Application.OnKey "{F2}", "green_shape"
Application.OnKey "{F1}", "Yellow_shape"
Application.OnKey "{F4}", "grey_shape"

End Sub

'sub red_shape
'

'
    ActiveSheet.Shapes.AddShape(msoShapeOval, 259.2, 114.6, 18.6, 19.2).Select
    With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With
End Sub

Schönen Dank im Voraus!

Liebe Grüße

Thomas