Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Als Bild OK, als Gruppierung nicht

Als Bild OK, als Gruppierung nicht
14.06.2009 22:19:44
Benedikt
Guten Abend zusammen
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Erledigt!
15.06.2009 15:01:07
Andy
Trotzdem besten Dank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige