![]() |
Betrifft: Grafik positionieren
von: Sebastian
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
![]() |
Betrifft: AW: Grafik positionieren
von: Reinhard
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
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
![]() |