|
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.
1 2 3 4 5 6 7 8 | 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
|