Als Bild OK, als Gruppierung nicht
14.06.2009 22:19:44
Benedikt
Wenn ich mit einem JPG nachfolgendes Macro ausführe klappt das einfügen der Bilder absolut 100%. Sobald ich mit einer Gruppierung dasselbe ausführe, funzt es nicht mehr sauber: .Shapes(.Shapes.Count).OnAction = "" funktioniert nicht und grosse Bilder kollidieren mit Bildern in der unteren Reihe. Was muss ich umbenennen und wo ist der Unterschied zwischen Bild und Gruppierung.
Vielen Dank für Inputs.
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