Corel DRAW X5

[koter]

Hallo Boxer,

...da ich mich mit einem Makro erstellen nicht auskenne...

da Du Litschis Makro geändert hast, dachte ich Du kennst Dich aus (Mein Fehler).

Beispiel:

Code:

Sub NrAufkleber1()
   Dim REcke As New ShapeRange, Nummern As New ShapeRange
   Dim REck As Shape, NrText As Shape
   Dim breit As Double, hoch As Double, PosX As Double, PosY As Double
   Dim Spalten As Integer, Reihen As Integer, s As Integer, r As Integer, Nr As Integer
   Dim Schriftart As String
   
   Spalten = 4
   Reihen = 8
   breit = 16
   hoch = 10
   PosX = 9
   PosY = 280
   Nr = 1
   Schriftart = "Arial"
   
   Optimization = True
   
   'Rechtecke:
   For r = 0 To Reihen - 1
       For s = 0 To Spalten - 1
           Set REck = ActiveLayer.CreateRectangle(PosX + breit * s, PosY + hoch - hoch * r, PosX + breit + breit * s, PosY - hoch * r)
           REck.Name = "R-" & r + 1 & "-" & s + 1
           With REck
           .OrderToBack
           .Fill.UniformColor.CMYKAssign 0, 0, 100, 0  'gelber Hintergrund
           .Outline.SetProperties 0.0762 'Haarlinie
           End With
           REcke.Add REck
       Next s
   Next r
   
   'Nummern:
   For Each REck In REcke
       Set NrText = ActiveLayer.CreateArtisticText(0, 0, Format(Nr, "000"))
       With NrText
           .Text.Story.Font = Schriftart
           .Text.Story.Alignment = cdrCenterAlignment
           .CenterX = REck.CenterX
           .CenterY = REck.CenterY
           .OrderToBack
           .Name = "Nr " & Nr
       End With
       Nummern.Add NrText
       Nr = Nr + 1
   Next
   Nummern.OrderToFront
   
   Optimization = False
   ActiveWindow.Refresh
End Sub

Falls Du noch einen Benutzerdialog oder Sonstiges willst, gib Bescheid.

Wenn Das Makro in der Datei gespeichert werden soll, musst Du dort ein Modul anlegen.
Du findest den Ort im Projekt-Explorer des Makroeditors unter VBAProject(Dateiname)
ist die Datei noch nicht gespeichert ist sieht das wahrscheinlich so aus: VBAProject(Unbenannt-1).

Gruß

Koter