Gruß, Andi von: u_ Geschrieben am: 23. 2006 10:21:33 Hallo, eine Msgbox kannst du nicht ändern. Bau dir eine Userform. Gruß Geist ist geil! (Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet. ) Excel-Beispiele zum Thema "MsgBox Schriftgröße"
Die kannst du dann nach belieben formatieren. Das wre allerdings etwas umstndlich und genau nach unten stehendem Motto... _________________ Gru Daniel P. S. Nein, das ist kein Pfusch... das ist Improvisation! ;o) Verfasst am: 21. Mrz 2010, 21:15 Rufname: Ich dachte, es gibt Befehlszeilen um durch Codes die Farbe zu ndern. Konnte doch auch durch Codes den Zeilenvorschub machen. kjot259 VBA Einsteiger/Makro4-profi Verfasst am: 21. Mrz 2010, 21:33 Rufname: kj hallo petra, exceltftler hat leider recht, das geht nicht mit messageboxen. Vba msgbox schriftgröße in de. dazu mu man eine userform erstelllen, die a) schner darzustellen ist. b) mehr mglichekiten bietet c) farben usw. anbietet, was die messagebox nicht hat _________________ Gru kj PS: Rckmeldung (nach Vollzug) erbeten! **************************************** Chuck Norris liest keine Bcher, er starrt sie so lange an, bis die Bcher freiwillig alles erzhlen. Schnake anfnger *fg* Verfasst am: 21. Mrz 2010, 21:45 Rufname: Wohnort: reutlingen Hallo Porschpetra.
Beispiel Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). In diesem Beispiel wird die MsgBox -Funktion verwendet, um eine Meldung zu einem kritischen Fehler in einem Dialogfeld mit den Schaltflächen "Ja" und "Nein" anzuzeigen. Die Schaltfläche "Nein" ist als Standardantwort angegeben. Der von der MsgBox -Funktion zurückgegebene Wert hängt davon ab, welche Schaltfläche der Benutzer ausgewählt hat. Für dieses Beispiel wird vorausgesetzt, dass eine Hilfedatei ist, die ein Thema mit der Hilfekontextnummer 1000 enthält. Dim Msg, Style, Title, Help, Ctxt, Response, MyString Msg = "Do you want to continue? " Style = vbYesNo + vbCritical + vbDefaultButton2 Title = "MsgBox Demonstration" Help = "" Ctxt = 1000 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' User chose Yes. MyString = "Yes" ' Perform some action. Else ' User chose No. Vba msgbox schriftgröße pdf. MyString = "No" ' Perform some action. End If
Hier dein etwas angepasste Code mit einem festen Text. Sub Textfeld1() Dim rngActCell As Range Dim objShape As Shape Dim strText As String Dim lngSpalte As Long Dim lngZeile As Long lngSpalte = lngZeile = strText = "Hallo Welt" Set rngActCell = Cells(lngZeile, lngSpalte) Set objShape = ( _ msoTextOrientationUpward, _, _ + 11, _ 200, 200) MsgBox With aracters = strText End With End Sub Jetzt kommt der schwierige Teil. Msgbox bearbeiten (Schriftart und Größe) - Basic - Fachinformatiker.de. Mir ist nämlich keine in Excel oder VBA eingebaute Funktion bekannt, welche die Größe ermittelt, die ein vorgegebener Text einer bestimmten Größe und Schriftart in Punkt einnimmt. Es gibt aber die API-Funktion GetTextExtentPoint, die die Abmessungen eines virtuellen Textrahmens in Pixel ermittelt. Diese benötigt einen DC, also einen Gerätekontext, in dem man Text hineinzeichnen kann. In diesem DC muss auch noch die gewünschte Schriftart mit allen relevanten Eigenschaften gestellt werden. Man legt also mit CreateCompatibleDC einen zum Screen kompatiblen DC an, erzeugt mit CreateFontIndirect eine Schriftart und stellt diese mit SelectObjekt dort hinein.