gibt es eigentlich im Excel 2007 die Möglichkeit (wie z. B. bei Word oder Powerpoint auch) Grafiken genau mit absoluten Werten zu positionieren?
Viele Grüße
Ralf
MsgBox ActiveSheet.Pictures(1).Top 'Anzeigen
ActiveSheet.Pictures(1).Top = 100 '100 Punkte
Mit folgenden Anweisungen entsprechend den Abstand vom linken Rand :
MsgBox ActiveSheet.Pictures(1).Left 'Anzeigen
ActiveSheet.Pictures(1).Left = 100 '100 Punkte
Um nun den Abstand in cm (bzw. zunächst in Inch, also ZOLL) zu ermitteln, bietet Excel VBA 2 Umrechnungsfunktionen :Sub BildPositionen()
'02.02.2011, NoNet - www.excelei.de
'Abstand (in Punkten gemessen) vom oberen Rand anzeigen :
MsgBox ActiveSheet.Pictures(1).Top
'Abstand (in Punkten gemessen) vom oberen Rand setzen :
ActiveSheet.Pictures(1).Top = 50 '50 Punkte Abstand vom oberen Rand
'Abstand (in Punkten gemessen) vom linken Rand anzeigen :
MsgBox ActiveSheet.Pictures(1).Left
'Abstand (in Punkten gemessen) vom linken Rand setzen :
ActiveSheet.Pictures(1).Left = 100 '100 Punkte Abstand vom linken Rand
'################ Abstände in Inches (1 ZOLL = 2,54 cm) #############################
'Abstand (in ZOLL gemessen) vom oberen Rand anzeigen :
MsgBox ActiveSheet.Pictures(1).Top / Application.InchesToPoints(1)
'Abstand (in ZOLL gemessen) vom oberen Rand setzen :
ActiveSheet.Pictures(1).Top = Application.InchesToPoints(2) '2 Zoll Abstand vom oberen Rand
'################ Abstände in cm #############################
'Abstand (in cm gemessen) vom oberen Rand anzeigen :
MsgBox ActiveSheet.Pictures(1).Top / Application.CentimetersToPoints(1)
'Abstand (in ZOLL gemessen) vom oberen Rand setzen :
ActiveSheet.Pictures(1).Top = Application.CentimetersToPoints(3) '3 cm Abstand vom oberen _
Rand
End Sub
Ob die Bildposition im Papier-Ausdruck ebenfalls stimmt habe ich nicht getestet, das hängt sicherlich auch vom verwendeten Blattrand, dem Druckermodell- und dem Druckertreiber ab !!