Verschieben, bzw. Ausrichten einer Gruppe?
04.04.2008 09:05:33
Kasimir
ich benötige mal Eure Hilfe. Ich erstelle gerade eine Rechnungsvorlage. In dieser Rechnungsvorlage sollen auf der rechten Seite das Firmenlogo, die Adresse, die Geschäftsführer und die Bankdaten erscheinen. Ich habe nun das Logo und Textfelder so auf der ersten Seite positioniert, wie ich mir das vorstelle. Dann habe ich dieses Logo und die Textfelder zu einer Gruppe gruppiert und diese Gruppe 10x kopiert und in einem nicht verwendeten Bereich eingefügt und ausgeblendet.
Mein Vorhaben nun, ich möchte auf jeder neuen Druckseite ausgerichtet an der oberen Kante der ersten Zelle in Spalte E eine Gruppe anzeigen, sprich die Gruppe soll so verschoben werden, das der obere Zellenrahmen und der Rahmen der Gruppe deckungsgleich sind. Mein Problem ist nun das Verschieben, bzw. Ausrichten an der ersten Zelle einer Druckseite. Wobei das Ermitteln der ersten Zelle und das Einblenden kein Problem ist, sondern nur das schieben. Nachfolgend mal mein Makro zum Ermitteln der Zelle und des Einblendens der Gruppen.
Sub Gruppen_Ein()
Dim shpTxtFeld As Shape
Dim strTxtName As String
Dim varCellAddress As Variant
Dim iShape As Integer
Dim iFirstFreeRow As Integer
Dim varPB As Variant
Dim iAktDruckseite As Integer
Dim iRow As Integer
Dim iLastPrintRow As Integer
Dim Zähler As Integer
Application.ScreenUpdating = False
Textfelder_Aus
With Vorlage_Rechnung
.Shapes("Adresse1").visible = True
.Shapes("Adresse2").visible = True
.Shapes("Logo1").visible = True
iFirstFreeRow = .Range("A65536").End(xlUp).Offset(1, 0).Row
.PageSetup.PrintArea = ""
'Feststellen, welches wirklich die absolut letzte beschriebene Druckseite ist _
muss sein, da es sein kann, dass mehr Druckseiten angezeigt werden, _
als wirklich benötigt werden
For iRow = 1 To 10
On Error GoTo Weiter
Zähler = Zähler + 1
iLastPrintRow = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iRow & ")") - 1
If iFirstFreeRow
Kann mir jemand auf die Sprünge helfen, wie ich die Gruppe wie oben beschrieben positioniere?
Danke Euch,
Kasimir