Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
1520to1524
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Per Makro Schriftgröße bestimmen

Per Makro Schriftgröße bestimmen
17.10.2016 11:42:31
Thomas3
Hallo zusammen,
ich würde mich freuen, bei folgender Frage eine Hilfestellung zu bekommen :
Hier die Ausgangssitiation :
In der Tabelle 1 wird in der Zelle A1 ein Text eingegeben
In der Tabelle 2 wird per Verknüpfung in die Zelle A1 dieser Text verknüpft.
Das ist das Problem :
Die Zelle A1 in der Tabelle 2 ( also die Zielzelle ) ist auf eine bestimmte Größe festgelegt. Ist also der Text in der Ausgangszelle zu lange, wird der Text in der Zielzelle nicht komplett sichtbar gemacht.
Daher müsste per Makro erfasst werden, ob der bestehende Platz ausreicht, um den gesamten Text sichtbar zu machen, oder ob eine Reduzierung der Schriftgröße nötig ist.
Hintergrund :
In der Tabelle 1 werden bestimmte Daten eingegeben, um in der Tabelle 2 ein Zertifikat zu erstellen. In das Zertifikat wird der Titel des Seminars ausgedruckt. Das Blatt hat eine bestimmte Größe ( A4 quer ). Ist der Titel zu lange, wird dieser nicht vollständig ausgedruckt.
Würde das gehen ?
Viele Grüße und DANKE schon jetzt für Eure Mühen !
Thomas

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro Schriftgröße bestimmen
17.10.2016 11:53:13
Theo
Hallo,
das kann Excel automatisch seit Office 97:
Dazu markierst Du die betreffende Zelle und wählst das Menü FORMAT - ZELLEN. Auf der Registerkarte AUSRICHTUNG aktivierst Du die Option "An Zellgröße anpassen". Excel richtet dann automatisch die Schriftgröße nach der Zellgröße aus.
Per Makro geht das so:
Sub SchriftAuto()
With Range("A1")
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Grüsse
The0
Anzeige
AW: Per Makro Schriftgröße bestimmen
17.10.2016 12:05:53
Thomas3
meine Herren....
Den Wald vor lauter Bäumen nicht gesehen.
KLAR doch!!!
vielen Dank für die Lehrstunde
Liebe Grüße
Thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige