DropDownMenu Schriftgrösse

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: DropDownMenu Schriftgrösse
von: Urs
Geschrieben am: 21.06.2002 - 10:48:35

Hallo Zusammen

In einem Excel Sheet haben wir folgendes Makro für ein DropDown Menu. Nur die Schrift im DropDown Menu ist sehr klein. Gibt es eine Möglichkeit diese zu ändern. Damit das ganze besser lesbar wird.

Vielen Dank für eure Unterstützung.

Urs


Sub DropdownMarken_VT()
    
    Dim sFileName As String
    
    If MsgBox("Durch Wechseln der Marke verlieren Sie nicht gespeicherte Werte." & Chr(13) & _
        "Wollen Sie die Marke wechseln?" & Chr(13) & _
        " " & Chr(13) & _
        "En changeant de centre de frais, vous perdez des données non mémorisées." & Chr(13) & _
        "Voulez-vous changer de marque?" & Chr(13), _
        vbYesNo) = vbNo Then
        ActiveSheet.DropDowns("dMVT").ListIndex = iMarkenIndexSav
    Else
        Application.ScreenUpdating = False
        sFileName = ActiveWorkbook.Name
        ActiveWorkbook.Close savechanges:=False
        Oeffnen sFileName
        Application.ScreenUpdating = True
        Calculate
    End If
    iMarkenIndexSav = ThisWorkbook.Sheets("Pull-Down Bez.").Range("MarkenIndex").Value
    ActiveSheet.DropDowns("dMVT").ListIndex = iMarkenIndexSav
    
End Sub

nach oben   nach unten

Re: DropDownMenu Schriftgrösse
von: Otto Ecker
Geschrieben am: 24.06.2002 - 15:17:05

Hallo Urs,

lass Dir die Symbolleiste "Steuerelement-Toolbox" anzeigen. rechter-Mausklick auf die Drop-Down-Box und dann auf das Icon "Eigenschaften" der Symbolleiste klicken.

Hier findest Du die Schriftart und die Größe.

Gruß Otto


nach oben   nach unten

Re: DropDownMenu Schriftgrösse
von: Urs
Geschrieben am: 24.06.2002 - 16:01:59

Hallo Otto

Vielen Dank für Deine Hilfe. Leider bekomme ich nur folgende Positionen:

(Name)..................Tabelle1
DisplayPageBreaks.......False
DisplayRightToLeft......False
EnableAutoFilter........False
EnableCalculation.......False
EnableOutlining.........False
EnablePivotTable........False
EnableSelection.........0 - xlNoRestricitions
Name....................Eingabemaske
ScrollArea
StandardWidth...........12.5
Visible.................- 1 - xlSheetVisible

Gibt es eine Möglichkeit die fehlenden Zeilen noch einzublenden?
Oder weisst Du noch einen anderen Weg.


Gruss

Urs

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Variablen beim öffnen befüllen"