Thema Datum  Von Nutzer Rating
Antwort
31.03.2008 14:41:00 Manu
NotSolved
Blau Aw:Auswahlliste im VBA-Makro
 01.04.2008 13:03:39 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
01.04.2008 13:03:39		 Views:
1490		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Auswahlliste im VBA-Makro
Hallo Manu,
rufe z.B. eine UserForm (z.B. UserForm1) mit einer ListBox(z.B. ListBox1), in der du die Sprachen zur Auswahl stellst, in deinen Code mit folgenden Zeilen auf:
Load UserForm1
UserForm1.show

Ferner solltest du z.B. die Variable Sprache im Modul öffentlich deklarieren:
Public Sprache as string

Im Codeteil der UserForm kannst du z.B. folgenden Code verwenden:

Private Sub ListBox1_Click()
Select Case ListBox1.ListIndex
Case 0
Sprache = msoLanguageIDGerman
Case 1
Sprache = msoLanguageIDEnglish
Case 2
Sprache = msoLanguageIDFrench
Case Else
End Select
Unload UserForm1
End Sub

Private Sub UserForm_initialize()
ListBox1.AddItem ("Deutsch")
ListBox1.AddItem ("Englisch")
ListBox1.AddItem ("Französisch")
End Sub

Viel Erfolg
Holger

Manu schrieb am 31.03.2008 14:41:00:

Hallo,

hoffe die Könner können mir weiterhelfen.

Habe in einem VBA Makro für Powerpoint (2000) folgenden Befehl:

shp.TextFrame.TextRange.LanguageID = msoLanguageIDGerman

der mir die Sprache auf deutsch stellt.

Nun möschte ich für msoLanguageIDGerman einen Platzhalter setzten, also: shp.TextFrame.TextRange.LanguageID = [Sprache]
und einen Auswahldialog vorschalten bei dem ich zwischen drei Sprachen wählen kann.
Also z.B. mit Anklickbaren Feldern: Deutsch, englisch, Französisch.
Je nachdem was geklickt wird, wird der Platzhalter durch "msoLanguageIDGerman", "msoLanguageIDEnglishUS" oder "msoLanguageIDFrench" ersetzt.

Wie baue ich so einen Auswahldialog?

Danke für Tips oder einen Beispielcode!

Gruß,
Manu

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:



  • 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
31.03.2008 14:41:00 Manu
NotSolved
Blau Aw:Auswahlliste im VBA-Makro
 01.04.2008 13:03:39 Holger
NotSolved