Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Grafik positionieren

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


 

Beiträge aus den Excel-Beispielen zum Thema "Grafik positionieren"