Grafik positionieren

• Grafik positionieren von Sebastian vom 02.07.2008 08:45:12
• AW: Grafik positionieren - von Reinhard am 02.07.2008 08:53:24
  • AW: Grafik positionieren - von Sebastian am 02.07.2008 09:09:37
    • AW: Grafik positionieren - von Reinhard am 02.07.2008 09:31:19
      • AW: Grafik positionieren - von Sebastian am 02.07.2008 09:35:05
        • Ich glaube nicht daß es funktioniert - von Reinhard am 02.07.2008 09:48:20

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

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

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

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

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

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

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