Hallo Forum Mitglieder,
als VBA Anfänger stecke ich fast in einer mittelschweren Krise...
Als Basis:
habe ich eine Tabelle in der zwei Zellen in jeweils Höhe und Breite verbunden sind. Mittels eines Makros möchte ich Bild aus einer auf dem PC gespeicherten Datei in diesen aktiven Zellenverbund einfügen und die Größe anpassen.
So weit so gut, schon einiges erledigt... der Speicherort wird abgefragt und das Bild auf die jeweilige Größe der Zelle angepasst und eingefügt...
DAS PROBLEM:
nur die Basiszelle wir angenommen und nicht auf die drei umliegenden Zellen angenommen, somit ist das Bild nicht in gewünschter Größe und platziert.
Die FRAGE: kann man den Code irgendwie so formulieren das mein Problem gelöst wird, ich hab leider schon öfters die Erfahrung gemacht das Excel VBA ein Problem mit verbundenen Zellen hat. Ich benutze die aktuelle Version von Excel.
DER CODE:
Sub Bilder_einfuegen3aktiv()
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
'Speicherpfad angeben
Zeile = ActiveCell.Column
'Zeile angeben
Activecsheet.Pictures.Insert(sPicture).Select
Selection.Top = ActiveCell.Top
Selection.Left = ActiveCell.Left
'Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.Height = Range(Cells(5, 5), Cells(5, 5)).Height
Selection.Width = ActiveCell.Width
Selection.Placement = xlMoveAndSize
End Sub
Vielen Dank im voraus!!!
|