ich habe folgendes Problem: über ein Makro füge ich Grafiken mehrfach in eine Tabelle ein. Die müssen aber an einer bestimmte Position stehen (oben mittig in der Zelle). Das funktioniert aber irgendwie nicht. Die Position ist immer unterschiedlich obwohl die Grafiken mit der Eigenschaft "von Zellposition und -größe unabhängig" eingestellt sind. Auch das fixieren an die Zellgröße hat nichts gebracht.
Hier nun der Ausschnitt aus dem Makro:
(REGISTER und SCHILD werden als Variablen übergeben. XL und YL werden entsprechend vorher definiert.)
'Ab hier das Firmenlogo einsetzen
Worksheets("Ordnerübersicht").Activate
LOGO = Range("Kunde").Value 'Graphik nach Kundennamen selektieren
If LOGO = "Kunde" Then
MsgBox "Kein Kunde eingetragen!", vbOKOnly
GoTo FEHLER
End If
ActiveSheet.Shapes(LOGO).Select
Selection.Copy ' und kopieren
Sheets("Ordnerübersicht").Paste 'In das Blatt einfügen
Selection.Name = "FIRMA" 'Graphik umbenennen
Selection.Cut
Worksheets(REGISTER).Activate 'und hier einfügen
Cells(1, SCHILD).Select
Sheets(REGISTER).Paste
Selection.ShapeRange.IncrementLeft XL
Selection.ShapeRange.IncrementTop YL
GoTo ENDE
Vielen Dank für eure Hilfe
GRuß
Robert