Application.Caller
Beni
Gibt es eine Alternative zu "With ActiveSheet.Shapes(Application.Caller)"
In Excel 2003 läuft das Macro sauber und verschiebt die gruppierten Bilder einwandfrei. Unter 2007 läuft es nicht. Versehentlich habe ich in 2007 an der Datei gearbeitet und als xls in 2003 gespeichert. Aber Toll: Alle Gruppierungen heissen neu Group und jetzt kommt ein Laufzeitfehler -2147024809(80070057) und beim Debuggen bin ich auf der Application Caller Zeile.
Ich währe Dankbar für Hilfe die sowohl unter 03 und 07 läuft.
An dieser Stelle nochmals ein Dankeschön an Erich G. für den nachstehenden Code.
Sub BildAnfuegen(strC As String)
Dim sngT As Single, sngL As Single, sngH As Single, sngW As Single
Dim ii As Integer, bolOK As Boolean
With ActiveSheet.Shapes(Application.Caller)
sngH = .Height
sngW = .Width
.Copy
End With
With Worksheets("Zeichnung")
sngT = .Range(strC).Top
sngL = .Range(strC).Left
For ii = 1 To .Shapes.Count
With .Shapes(ii)
If Abs(.Top - sngT)
Function Kolli(shA As Shape, _
sngTop As Single, sngHig As Single, sngLef As Single, sngWid As Single) As Boolean
If shA.Top >= sngTop + sngHig Or _
sngTop >= shA.Top + shA.Height Or _
shA.Left >= sngLef + sngWid Or _
sngLef >= shA.Left + shA.Width Then
Else
Kolli = True
End If
End Function