ich hoffe jemand könnte mir einen kleinen Tipp zu meinem Problem geben.
Ich habe mir aus verschiedenen Beispielen ein Code geschrieben indem ich Bilder per Makro einfüge, was auch funzt.
Hier ein Teilausschnitt:
If ThisWorkbook.Worksheets("Bericht").Range("DO2521").Value = 0 Then
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
If .Height > .Width Then
hochformat = True
.Width = 217
.Top = Range("Schallbild2").Top
.Left = Range("Schallbild2").Left
.Name = "AkustikQuer1"
.ShapeRange.Line.Visible = True
.ShapeRange.Line.Weight = 0.1
.Placement = xlMoveAndSize
Range("DO2521").Value = 1
Range("DO2524").Value = "AkustikQuer1"
Ich vergebe auch dem eingefügten Bild den Namen "AkustikQuer1". Ich möchte im nächsten Schritt gerne das Bild "AkustikQuer1" in eine andere Zelle verschieben wenn es bereits existiert:
ActiveSheet.Shapes.Range(Array("AkustikQuer1")).Select
Selection.Cut
Range("Schallbild1").Select
ActiveSheet.Paste
Das funktioniert zwar, aber wenn kein Bild vorhanden ist, dann kopiert er die Zelle darunter.Gibt es eine Möglichkeit ActiveSheet.Shapes.Range(Array("AkustikQuer1")) auf "wenn vorhanden" abzufragen?
Über einen Tipp würde ich mich sehr freuen.
Danke Igor