Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint: Shapes ein/ausblenden
 18.03.2013 11:46:41 Jan
NotSolved

Ansicht des Beitrags:
Von:
Jan		 Datum:
18.03.2013 11:46:41		 Views:
1606		 Rating:
     
Antwort:
  Ja
Thema:
Powerpoint: Shapes ein/ausblenden

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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Powerpoint: Shapes ein/ausblenden
 18.03.2013 11:46:41 Jan
NotSolved