Hallo zusammen
Ich bin schon sehr oft bei Euch im Forum gewesen und habe Super viele Tipps gefunden und umgesetzt. Vielen Dank dafür :-)
Ich stehe dennoch vor einem Problem was ich nicht gelöst bekomme. Ich habe ein Makro was mir QR Codes generiert. Mein Makro platziert den Code an eine bestimmte stelle und zwar 15 Schritte von links und 1 Schritt nach oben. Ich Arbeite mit verschiedenen Zellenbreiten. Ich möchte gern das mein QR Code statt 15 Schritte von links immer mittig in der Zelle platziert wird. Die Positionshöhe soll gleich bleiben. Den Teil des Makros wo der Code platziert wird findet Ihr unten. Habt Ihr einen Tipp für mich?
In der Zeile "Selection.ShapeRange.IncrementLeft 15" soll der Code mittig platziert werden.
---
Sheets("data").Shapes(i + 1).Copy
ws.Select
Trouve.Offset(1, 0).PasteSpecial
Selection.ShapeRange.ScaleWidth 0.9, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.9, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft 15
Selection.ShapeRange.IncrementTop -1
Range("A1").Select
----