Selektiertes Bild in Variable

[Caldolan]

Hi Zusamme - ich steh gerade auf dem Schlauch. Ich möchte ein Selektiertes Bild in eine Variable speichern, komme aber gerade nicht drauf wie. Folgendes habe ich:

Code:

Sub SelektBildInVar()
  Dim aShape As Shape

  set aShape = Selection
end sub