Hallo an Alle,
ich möchte eine xlsm Datei zur Verwaltung einer Musik-Sammlung erstellen. Über eine Userform werden für CDs oder Schallplatten die Daten (Interpret, Albumtitel, etc) eingegeben. Dabei soll auch das Albumcover-Bild eingelesen werden.
Ich möchte, dass man das Bild nur kopieren muss und durch klicken auf eine Schaltfläche wird es automatisch an der richtigen Stelle eingfügt und in der Größe angepasst wird. Das einfügen klappt schon aber ich weiß nicht wie ich es anpassen soll. Habt ihr da Tipps für mich?
Der Code dafür siehr so aus:
Dim cover As Picture
Worksheets("Archiv").Cells(activerow, 2).Activate
Set cover = Worksheets("Archiv").Paste
cover.ShapeRange.Width = 58
Vielen Dank bereits im vorhinein.
|