Hallo!

ich habe folgdens Problem:

In einer Dropdownliste (cmb_businessrelevance) wählt man „Low“, „Mid“, „High“ oder "". Nach Drücken des Buttons (Cmb_strategicrelevance), sollte einer der Autoformen LOW, MID, HIGH oder LEER entsprechend der Programmierung eingeblendet werden. Im Präsentationsmodus wird das Shape NICHT eingeblendet. Verlasse ich den Präsentationsmodus, sehe ich das richtige eingeblendete Shape.

Programmiert habe ich in PPT 2007. Das komische ist, wenn ich die Datei in PPT 2010 öffne, funktioniert alles.

Untenstehend findet Ihr meinen genutzten Code:

'Dropdown market category
Private Sub cmb_businessrelevance_DropButtonClick()

If Slide171.cmb_businessrelevance.ListCount <= 0 Then
Slide171.cmb_businessrelevance.Clear
Slide171.cmb_businessrelevance.AddItem ""
Slide171.cmb_businessrelevance.AddItem "High"
Slide171.cmb_businessrelevance.AddItem "Mid"
Slide171.cmb_businessrelevance.AddItem "Low"

End If
End Sub

'Ergebnis

Private Sub Cmb_strategicrelevance_Click()

Dim LOW As Shape, MID As Shape, HIGH As Shape, LEER As Shape

Slide171.Shapes("LOW").Visible = False
Slide171.Shapes("HIGH").Visible = False
Slide171.Shapes("MID").Visible = False
Slide171.Shapes("LEER").Visible = False

If Slide171.cmb_businessrelevance = "High" Then
   Slide171.Shapes("HIGH").Visible = True
ElseIf Slide171.cmb_businessrelevance = "Mid" Then
   Slide171.Shapes("MID").Visible = True
ElseIf Slide171.cmb_businessrelevance = "Low" Then
   Slide171.Shapes("LOW").Visible = True
ElseIf Slide171.cmb_businessrelevance = "" Then
    Slide171.Shapes("LEER").Visible = True
End If
End Sub

Es wäre toll, wenn ihr mir weiterhelfen könntet.

Jan