Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Grafik anhand von Werten verschieben

Forumthread: Grafik anhand von Werten verschieben

Grafik anhand von Werten verschieben
Werten
Hallo zusammen,
ich habe eine Excel Tabelle bei dem ich einen Berg als Bild neben der Tabelle habe. Am Fuße diesen Berges steht ein Bergsteiger. Jetzt soll dieser Bergsteiger den Berg besteigen wenn ein Wert in der Tabelle sagen wir ca. 1500 als Summe erreicht. Oben angelangt darf er aber nicht mehr weiter steigen. Muss man denke ich entweder mit Prozent machen oder mit absoluten Zahlen bzw. Koordinaten.
Ich hoffe ihr könnt mir da weiterhelfen.
Mfg Christian
Anzeige

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

Betreff
Benutzer
Anzeige
Min(Wert;1500) owT
24.03.2011 16:59:49
Rudi
AW: Grafik anhand von Werten verschieben
24.03.2011 17:08:07
Werten
Hallo Christian.
die Position eines Bildes kannst Du über die Koordinaten (Left / Top) verändern.
Diese Werte kannst Du natürlich in Zellen auf dem Excelblatt eintragen.
Beispiel:
ActiveSheet.Shapes("Picture x").Left = Range("A1").Value
ActiveSheet.Shapes("Picture x").Top = Range("A2").Value
"Picture x" mußt Du natürlich durch den Namen Deines Bildes ersetzen.
Wenn dieses Bild bei dem Wert 1.500 eine bestimmte vertikale Position erreichen soll,
mußt Du den Wert für die Position "Top" entsprechend umrechnen. Beispiel: Das Bild hat
bei einem Wert (Top) von 300 die Endposition erreicht was einem Tabellenwert (in Zelle A2) von 1500 entspricht, dann wäre der entsprechende Code für diese Position.
ActiveSheet.Shapes("Picture x").Top = Range("A2")/5.Value
Für alle darunterliegenden Positionen gilt so natürlich auch die Abhängigkeit vom Wert in Zelle A2.
Die Formel ("Range("A2")/5") kannst Du aber nahezu beliebig umstellen.
Gruß, Jürgen
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Grafik anhand von Werten verschieben in Excel


Schritt-für-Schritt-Anleitung

Um ein Bild in Excel basierend auf Werten zu positionieren, folge diesen Schritten:

  1. Füge das Bild ein: Gehe zu "Einfügen" > "Bilder" und wähle das Bild aus, das Du verwenden möchtest, z.B. ein Logo oder ein Bergsteiger-Bild.
  2. Benennen des Bildes: Klicke mit der rechten Maustaste auf das Bild und wähle "Bild formatieren". Benenne das Bild im Eigenschaftenfenster, z.B. "Picture x".
  3. Zellen für Position erstellen: Wähle zwei Zellen aus, z.B. A1 für die horizontale Position (Left) und A2 für die vertikale Position (Top) des Bildes.
  4. VBA-Code hinzufügen: Öffne den VBA-Editor mit ALT + F11 und füge den folgenden Code in ein neues Modul ein:

    Sub PositioniereBild()
       ActiveSheet.Shapes("Picture x").Left = Range("A1").Value
       ActiveSheet.Shapes("Picture x").Top = Range("A2").Value
    End Sub
  5. Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Führe das Makro aus, um das Bild zu positionieren.

Häufige Fehler und Lösungen

  • Bild wird nicht angezeigt: Stelle sicher, dass der Name des Bildes im VBA-Code korrekt ist. Überprüfe den Namen im Eigenschaftenfenster.
  • Position ist nicht korrekt: Überprüfe die Werte in den Zellen A1 und A2. Diese Werte müssen den gewünschten Positionen in Excel entsprechen.
  • Makro läuft nicht: Aktiviere die Makros in Deinen Excel-Einstellungen, falls sie deaktiviert sind.

Alternative Methoden

Eine einfache Methode, um ein Bild ohne VBA zu positionieren, ist die Verwendung der "Datenüberprüfung" für die Zellen, die die Werte enthalten. Du kannst die Zellen so einstellen, dass sie automatisch Werte basierend auf einer Formel anpassen.

Ein Beispiel wäre die Verwendung einer WENN-Formel, um den Wert in A2 zu begrenzen:

=WENN(A2>1500;1500;A2)

Diese Formel sorgt dafür, dass der Wert in A2 niemals 1500 übersteigt.


Praktische Beispiele

  • Bergsteiger-Bild: Du kannst das Bild eines Bergsteigers neben einer Tabelle positionieren, die die erreichten Höhen anzeigt. Wenn die Höhe über 1500 steigt, wird das Bild entsprechend höher positioniert.
  • Marketing-Logo: Ein Logo kann in Abhängigkeit von Verkaufszahlen positioniert werden. Fülle A1 mit den Verkaufszahlen und A2 mit einer berechneten Höhe, um das Logo dynamisch zu bewegen.

Tipps für Profis

  • Verwende benannte Bereiche: Anstatt Zellen direkt zu referenzieren, kannst Du benannte Bereiche verwenden, um den Code klarer zu gestalten.
  • Animationen: Um das Bild animierter erscheinen zu lassen, kannst Du den Wert in A2 schrittweise erhöhen und das Makro regelmäßig ausführen.
  • Fehlerbehandlung einbauen: Füge in Deinen VBA-Code Fehlerbehandlungen ein, um Probleme beim Ausführen des Makros zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich mehrere Bilder gleichzeitig verschieben?
Ja, Du kannst zusätzliche Zeilen im VBA-Code hinzufügen, um mehrere Bilder zu positionieren.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, das Beispiel sollte in den meisten Versionen von Excel 2010 und neuer funktionieren.

3. Wie positioniere ich ein Bild ohne VBA?
Du kannst die Position des Bildes manuell ändern, indem Du es mit der Maus ziehst oder die Eigenschaften in der Formatierungsleiste anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige