Bild per vba positionieren und ausrichten

Forumthread: Bild per vba positionieren und ausrichten

13.11.2008 20:07:00

stefanseevetal

Hallo liebe Experten!
Ich möchte per vba ein Bild in eine Exceltabelle einfügen, positionieren und ausrichten. Ich habe bisher ein Userform, in dem man sich ein bild per ComboBox aussuchen kann und per Klick auf weiter wird es eingefügt mit diesem Befehl:
ThisWorkbook.Sheets("Deckblatt").Pictures.Insert("D:\Haus.jpg").Select
Soweit, sogut. Nun möchte ich das Bild aber oben und links direkt am Rand positionieren und es so groß haben, dass es genau auf eine DIN A4 Seite passt.
Kann mir jemand helfen und verraten, wie ich...
1. das Bild linksbündig und ganz oben positionieren kann und
2. wie ich die Bildgröße auf DIN A4 Format bzw. den Druckbereich einer Seite anpassen kann?
Vielen Dank und einen schönen Abend!
Gruß,
Stefanseevetal

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bild per vba positionieren und ausrichten

13.11.2008 21:06:04

Gerd

Hi,
dabei wird ev. das Seitenverhältnis des Bildes verzerrt, ist das gewollt?
mfg Gerd

AW: Bild per vba positionieren und ausrichten

13.11.2008 21:16:54

stefanseevetal

Hallo Gerd!
Am Besten wäre es natürlich, wenn beide Seiten des Bildes proportional zueinander verkleinert werden könnten. Aber mit einer Verzerrung kann ich auch leben. Hauptsache ich kann die Größe anpassen.
Danke und Gruß,
Stefan

AW: Bild per vba positionieren und ausrichten

13.11.2008 21:29:10

Tino

Hallo,
teste mal diesen Code.

Sub test()
Dim meBild As Object
Dim strBild As String
Dim lZelle As Long
strBild = "D:\Haus.jpg"
Set meBild = ThisWorkbook.Sheets("Deckblatt").Pictures.Insert(strBild)
    
    With meBild
     .Left = 0
     .Top = 0
    End With
    
    With ActiveSheet.PageSetup
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
    End With
   
End Sub

Gruß Tino

Infobox / Tutorial