Wie kann ich die Formgröße basierend auf dem angegebenen Zellenwert in Excel automatisch ändern?
Wenn Sie die Formgröße basierend auf dem Wert einer angegebenen Zelle automatisch ändern möchten, kann Ihnen dieser Artikel helfen.
Automatische Änderung der Formgröße basierend auf dem angegebenen Zellenwert mit VBA-Code
Automatische Änderung der Formgröße basierend auf dem angegebenen Zellenwert mit VBA-Code
Der folgende VBA-Code kann Ihnen helfen, eine bestimmte Formgröße basierend auf dem im aktuellen Arbeitsblatt angegebenen Zellenwert zu ändern. Bitte gehen Sie wie folgt vor.
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt" mit der Form, deren Größe Sie ändern müssen, und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.
2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Formgröße automatisch basierend auf dem in Excel angegebenen Zellenwert ändern
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row = 2 And Target.Column = 1 Then
Call SizeCircle("Oval 2", Val(Target.Value))
End If
End Sub
Sub SizeCircle(Name As String, Diameter)
Dim xCenterX As Single
Dim xCenterY As Single
Dim xCircle As Shape
Dim xDiameter As Single
On Error GoTo ExitSub
xDiameter = Diameter
If xDiameter > 10 Then xDiameter = 10
If xDiameter < 1 Then xDiameter = 1
Set xCircle = ActiveSheet.Shapes(Name)
With xCircle
xCenterX = .Left + (.Width / 2)
xCenterY = .Top + (.Height / 2)
.Width = Application.CentimetersToPoints(xDiameter)
.Height = Application.CentimetersToPoints(xDiameter)
.Left = xCenterX - (.Width / 2)
.Top = xCenterY - (.Height / 2)
End With
ExitSub:
End Sub
Hinweis: Im Code “Oval 2”Ist der Formname, dessen Größe Sie ändern werden. Und Zeile = 2, Spalte = 1 bedeutet, dass die Größe der Form „Oval 2“ mit dem Wert in A2 geändert wird. Bitte ändern Sie sie nach Bedarf.
Wenden Sie den folgenden VBA-Code an, um die Größe mehrerer Formen basierend auf unterschiedlichen Zellenwerten automatisch zu ändern.
VBA-Code: Ändern Sie automatisch die Größe mehrerer Formen basierend auf dem Wert der verschiedenen angegebenen Zellen in Excel
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xAddress As String
On Error Resume Next
If Target.CountLarge = 1 Then
xAddress = Target.Address(0, 0)
If xAddress = "A1" Then
Call SizeCircle("Oval 1", Val(Target.Value))
ElseIf xAddress = "A2" Then
Call SizeCircle("Smiley Face 3", Val(Target.Value))
ElseIf xAddress = "A3" Then
Call SizeCircle("Heart 2", Val(Target.Value))
End If
End If
End Sub
Sub SizeCircle(Name As String, Diameter)
Dim xCenterX As Single
Dim xCenterY As Single
Dim xCircle As Shape
Dim xDiameter As Single
On Error GoTo ExitSub
xDiameter = Diameter
If xDiameter > 10 Then xDiameter = 10
If xDiameter < 1 Then xDiameter = 1
Set xCircle = ActiveSheet.Shapes(Name)
With xCircle
xCenterX = .Left + (.Width / 2)
xCenterY = .Top + (.Height / 2)
.Width = Application.CentimetersToPoints(xDiameter)
.Height = Application.CentimetersToPoints(xDiameter)
.Left = xCenterX - (.Width / 2)
.Top = xCenterY - (.Height / 2)
End With
ExitSub:
End Sub
Hinweise:
3. Drücken Sie Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.
Wenn Sie von nun an den Wert in Zelle A2 ändern, wird die Größe der Form Oval 2 automatisch geändert. Siehe Screenshot:
Oder ändern Sie die Werte in Zelle A1, A2 und A3, um die Größe der entsprechenden Formen "Oval 1", "Smiley Face 3" und "Heart 3" automatisch zu ändern. Siehe Screenshot:
Hinweis: Die Formgröße ändert sich nicht mehr, wenn der Zellenwert größer als 10 ist.
Listen Sie alle Formen in der aktuellen Excel-Arbeitsmappe auf und exportieren Sie sie:
Das Grafiken exportieren Nutzen von Kutools for Excel Sie können schnell alle Formen in der aktuellen Arbeitsmappe auflisten und sie alle gleichzeitig in einen bestimmten Ordner exportieren, wie im folgenden Screenshot gezeigt. Jetzt herunterladen und ausprobieren! (30-Tag kostenlose Loipe)
In Verbindung stehende Artikel:
- Wie füge ich einer bestimmten Form in Excel eine Maus über die Spitze hinzu?
- Wie fülle ich eine Form mit transparenter Hintergrundfarbe in Excel?
- Wie kann ich eine bestimmte Form basierend auf dem angegebenen Zellenwert in Excel ein- oder ausblenden?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
















