Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1548to1552
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

Größe einer Form mit Zellwert verknüpfen

Größe einer Form mit Zellwert verknüpfen
25.03.2017 19:58:37
Max
Hallo,
ich würde gerne mehrere Rechtecke nebeneinander in aufsteigender Anordnung mit Zellwerten verbinden, sodass jedes Rechteck seine Höhe aus dem jeweiligen Zellwert zieht. Da die vorhanden Diagramme zu starr sind würde ich dies gerne selbst verformeln sofern möglich.
Vielen Dank vorab für jegliche Tipps.
Max

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Größe einer Form mit Zellwert verknüpfen
27.03.2017 06:16:53
fcs
Hallo Max,
lade mal eine Beispieldatei hoch mit ggf. anonymisierten Daten.
Grundsätzlich kann man die Rechtecke (Shape-Objekte) über den Namen ansprechen und deren Höhe dann auf den gewünschten Wert setzen.
LG
Franz
Beispiel-Makro: Höhe der Rechtecke ist hier in den Zellen in Zentimetern angegeben.
Höhe in Punkt ist auch möglich, dann muss Parameter bolCentimeter auf False gesetzt werden.
Sub Test()
Dim wks As Worksheet
Set wks = ActiveSheet
Dim dblUnten As Double
With wks
'Postition untere Linie Rechtecke
dblUnten = .Range("B20").Top
Call prcShapeHeight(objShape:=.Shapes("Rechteck 1"), dblHeight:=.Range("B1").Value, _
dblBottom:=dblUnten, bolCentimeter:=True)
Call prcShapeHeight(objShape:=.Shapes("Rechteck 2"), dblHeight:=.Range("C1").Value, _
dblBottom:=dblUnten, bolCentimeter:=True)
Call prcShapeHeight(objShape:=.Shapes("Rechteck 3"), dblHeight:=.Range("D1").Value, _
dblBottom:=dblUnten, bolCentimeter:=True)
Call prcShapeHeight(objShape:=.Shapes("Rechteck 4"), dblHeight:=.Range("E1").Value, _
dblBottom:=dblUnten, bolCentimeter:=True)
End With
End Sub
Public Sub prcShapeHeight(objShape As Shape, dblHeight As Double, dblBottom As Double, _
Optional bolCentimeter As Boolean = True)
With objShape
If bolCentimeter = True Then
.Height = Application.CentimetersToPoints(dblHeight)
Else
.Height = dblHeight
End If
.Top = dblBottom - .Height
End With
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige