AW: Bild in der Mitte des Bildschirms per VBA ....
Ramses
Hallo
Klar geht das :-)
Bildschirmauflösung abfragen
Bildgrösse abfragen
und dann ein bischen Mathematik :-)
Wenn das Bild nicht grösser als der Bildschirm ist, sollte es gehen
Damit kannst du die Auflösung abfragen
Declare
Function GetDeviceCaps Lib "gdi32" _
(ByVal hdc As Long, ByVal nIndex As Long) As Long
Declare
Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare
Function ReleaseDC Lib "user32" _
(ByVal hwnd As Long, ByVal hdc As Long) As Long
Declare
Sub ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long)
Const HORZRES = 8
Const VERTRES = 10
'Abrufen der Bildschirmauflösung
Function GetScreenRes()
Dim lRval As Long
Dim lDc As Long
Dim lHSize As Long
Dim lVSize As Long
lDc = GetDC(0&)
lHSize = GetDeviceCaps(lDc, HORZRES)
lVSize = GetDeviceCaps(lDc, VERTRES)
lRval = ReleaseDC(0, lDc)
GetScreenRes = lHSize & "x" & lVSize
End Function
Sub Test()
Select Case GetScreenRes
Case "1280x1024"
MsgBox "1280"
Case "1024x768"
MsgBox "1024"
Case Else
'usw
MsgBox "unbekannte Auflösung"
End Select
End Sub
und mit
ActiveSheet.Shapes("Picture 1").width
ActiveSheet.Shapes("Picture 1").height
kriegst du die Breite und Höhe des Bildes "Picture 1".
Den Rest kannst du dir dann ja ausrechnen
Gruss Rainer