Thema: Länge und Höhe eines Textes auslesen

Home

Gruppe

Allgemein

Problem

Die Länge und Höhe des Textes (abhängig von Schriftart und Größe) soll ausgelesen werden.

Lösung

Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub GetLengthHeight()
   Dim shp As Shape
   Dim dWidth As Double, dHeight As Double
   Application.ScreenUpdating = False
   dWidth = Columns(1).ColumnWidth
   dHeight = Rows(1).RowHeight
   Columns(1).AutoFit
   Rows(1).AutoFit
   Range("A1").CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   ActiveSheet.Paste
   Set shp = ActiveSheet.Shapes(2)
   MsgBox "Breite: " & shp.Width & vbLf & "Höhe: " & shp.Height
   shp.Delete
   Columns(1).ColumnWidth = dWidth
   Rows(1).RowHeight = dHeight
   Application.ScreenUpdating = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bereich

Dynamischer Datenbereich im Diagramm	Bereich als Bild speichern.
1. freie Zelle in nicht zusammenhängenden Bereich	Bestimmtheitsmass nach vorgegebenen Bereich
Bestimmten Bereich anhand Zeilenabgabe kopieren	Bereich löschen
Array - Index außerhalb des gültigen Bereichs	zoom auf Druckbereichsbreite anpassen
Bereich syncronisieren II	Zeilenbereich auf Tabelle übertragen
Druchbereiche auf eine Seite	Definitionsbereich
Bereich von rechts nach links auslesen?	Namen definieren für bestimmten Bereich
Nur einen Eintrag im Bereich zulassen	Kommentar in erste zelle einess Bereiches
bedingte Formatierung für zellenbereich	Summewenn mit abhängigen Bereichen
Bereiche in separates sheet	Summewenn mit abhängigen Bereichen
Absturz bei lokalen Bereichsnamen	Teilbereich einer Zelle einfärben
Abfrage ob Druckbereich zu groß für Seitenbreite	Gruppierten Bereich sperren
Bestimmte Zahlen aus einem Bereich	Bereich nur unter best. Voraussetzg. summieren
Name eine benannten Bereiches finden	Farbigen Rangebereich auswählen
Wert-Suche in Bereich	Bereich als Grafik speichern
Zeile löschen in Bereich	variablen Druckbereich definieren
Wertebereich definieren	Vergleich Datum in CB mit Datum in einem Bereich
Zeilen und Spalten von Bereich markieren	verlinkungen in markiertem bereich erneuern
Differenz zweier Summe im dynamischen Bereich	Zelbereiche(Matrizen) an Variablen zuweisen
Löschen eines Bereiches	Höchsten Wert aus einem Bereich auslesen
bereichsnamen mit indirekt zusammensetzen	Copy - paste von Zellbereich in Tabelle abfangen
per Makro markierten Bereich auslesen	Teilbereich einer Arbeitsmappe speichern
Summenprodukt und Namensbereich	Vorkommen von Werten eines Bereiches zählen
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Bereiche festlegen / verknüpfen	bestimmten Bereich sortieren