Herbers Excel-Forum - das Archiv

Grafik positionieren

Bild

Betrifft: Grafik positionieren
von: Sebastian

Geschrieben am: 02.07.2008 08:45:12

Hallo zusammen,
ich habe eine Frage bezüglich des Positionierens einer mit VBA erstellten Grafik:
Gibt es die Möglichkeit, genau zu definieren, wo sie auf dem Arbeitsblatt positioniert werden soll?
Ich weiß, dass eine Grafik nicht genau über einer Zelle positioniert werden kann. Gibt es vielleicht eine andere Möglichkeit?
Vielen Dank im vorraus!!
Viele Grüße, Sebastian

Bild

Betrifft: AW: Grafik positionieren
von: Reinhard
Geschrieben am: 02.07.2008 08:53:24
Hi Sebastian,
wieso soll man eine Grafik nicht genau über einer zelle platzieren können?
Zeige mal deinen Code.
Gruß
Reinhard

Bild

Betrifft: AW: Grafik positionieren
von: Sebastian

Geschrieben am: 02.07.2008 09:09:37
Hallo Reinhard,
vielen Dank für deine schnelle Antwort.
Mir wurde gesagt, dass das Positionieren der Grafik über einer Zelle nicht möglich ist, da die Grafik ja nicht in das Arbeitsblatt integriert ist, sonder quasi darüber "schwebt".
Ich habe leider noch keinen Code, da ich ja bisher davon ausging, dass es nicht geht. Wenn es ginge, würde es mir das Leben sehr erleichtern.
Vielen Dank und viele Grüße,
Sebastian

Bild

Betrifft: AW: Grafik positionieren
von: Reinhard

Geschrieben am: 02.07.2008 09:31:19
Hi Sebastian,
mit dem zweiten Makro kannst du die Namen der Grafiken erhalten.
Frage noch auf offen gestellt weil die Breite wieder rumzickt wie immer.

Sub Position()
With ActiveSheet.Shapes("Picture 4")
.Top = Range("C5").Top
.Left = Range("C5").Left
'.Width = Range("c5").ColumnWidth
.Width = Columns(3).ColumnWidth
'.Width = Range("c5").Width
.Height = Range("C5").Height
End With
End Sub


'

Sub tt()
Dim s
For Each s In ActiveSheet.Shapes
MsgBox s.Name
Next s
End Sub


Gruß
Reinhard

Bild

Betrifft: AW: Grafik positionieren
von: Sebastian
Geschrieben am: 02.07.2008 09:35:05
Funktioniert einwandfrei!!!!
Vielen Dank :-)

Bild

Betrifft: Ich glaube nicht daß es funktioniert
von: Reinhard

Geschrieben am: 02.07.2008 09:48:20
Hi Sebastian,
so klappts:

Sub Position()
With ActiveSheet.Shapes("Picture 4")
.LockAspectRatio = msoFalse
.Top = Range("C5").Top
.Left = Range("C5").Left
.Width = Range("c5").Width
.Height = Range("C5").Height
End With
End Sub


Gruß
Reinhard

 Bild
Excel-Beispiele zum Thema "Grafik positionieren"
Grafik in Kopfzeile Export von Diagrammen im Grafikformat
Grafiken im Tabellenblatt ordnen Grafiken an eine Seite anpassen
Grafik einfügen, wenn Wert in A1 unter eine Grenze sinkt Grafikprogramm aufrufen und Bild laden
Grafik in Abhängigkeit einer Zelleingabe einfügen Grafik nach Doppelklick laden
Grafiken aus ausgeblendeten Blättern einblenden Grafik nach Eingabe des Dateinamens einfügen