Macro, Text im Objektmanager anordnen

Macro, Text im Objektmanager anordnen - Druckversion

+- Juergens-Workshops.de Forum (https://forum.juergens-workshops.de)
+-- Forum: Corel Grafik Forum (https://forum.juergens-workshops.de/forumdisplay.php?fid=65)
+--- Forum: Corel Draw (https://forum.juergens-workshops.de/forumdisplay.php?fid=93)
+--- Thema: Macro, Text im Objektmanager anordnen (/showthread.php?tid=35024)

Macro, Text im Objektmanager anordnen - norre - 03.11.2013

Hallo ,
jetzt hätte ich mal eine Frage an unseren Univ-Prof Dr. mak. Koter (auf Wunsch des Mod. korrekte Anrede)

Meinst du, dass man dies mit einem Macro lösen könnte?
Die verschiedenen Textrahmen und Grafiktexte stehen im Objektmanager von der Reihenfolge her durcheinander, diese sollten aber laut ihrer Reihenfolge auf der Seite dort angeordnet sein.

Macro, Text im Objektmanager anordnen - Unkraut - 03.11.2013

Norre, nur wegen der "political correctness", bitte Univ-Prof Dr. mak. Koter .

Smile

das Kraut

Macro, Text im Objektmanager anordnen - koter - 03.11.2013

norre schrieb:...diese sollten aber laut ihrer Reihenfolge auf der Seite dort angeordnet sein.

Hallo norre,

Ich habe nicht genau verstanden, was Du mit „Reihenfolge“ meinst.

Das Modul im Anhang enthält die SUBs TextOrdBlattrandOben und TextOrdAlpha

TextOrdBlattrandOben ordnet die Texte nach der Position auf dem Blatt.

TextOrdAlpha ordnet die Texte (nach ihren Namen) alphabetisch. Dabei bleiben unbenannte Texte natürlich unberücksichtigt.

Die beiden anderen SUBs werden von den o.g. zum sortieren benötigt.

Falls ich Dich falsch verstanden habe, melde Dich noch einmal.

Gruß

Koter

Macro, Text im Objektmanager anordnen - norre - 04.11.2013

Hallo Koter,
oh entschuldige Univ-Prof Dr.Dr. mak. Koter
du bist der Wahnsinn
Das Sub TextOrdBlattrandOben ist genau dass was ich gemeint habe und es funktioniert Super

Habe hier alte Kataloge da habe ich nicht auf die Reihenfolge im Objektmanager geachtet, wenn ich allerdings die Texte nach Word exportieren will, müssen die Textrahmen und Grafiktexte, damit es auch in Word stimmt in der richtigen Reihenfolge im Objektmanager stehen.
Dein Macro hat mir eine Menge händischer Arbeit gespart.

Du hast nicht zufällig ne Wunschliste bei Amazon, damit ich dir mal was Gutes tun kann?

Macro, Text im Objektmanager anordnen - koter - 04.11.2013

Hallo Norre,

nein, eine Wunschliste bei Amazon habe ich nicht. Dafür habe ich jetzt drei akademische Grade!

Wenn aber die Leute von GuttenPlag & Co mitbekommen, dass ich den QuickSort-Algorithmus von dieser Seite gemopst habe, und das auch noch ohne Quellenangabe, dann bin ich wohl wieder ohne Titel.

Wenn Du im Quellcode den folgenden Kommentar hinzufügst, lässt mir meine Doktormutter Unkraut vielleicht wenigstens einen Titel (ein Dr. reicht, Professor muss nicht sein).

Code:
'Der folgende QuickSort-Algorithmus stammt von Dieter Otter (www.vbarchiv.net)

Gruß

Koter

Macro, Text im Objektmanager anordnen - Unkraut - 04.11.2013

koter schrieb:Wenn Du im Quellcode den folgenden Kommentar hinzufügst, lässt mir meine Doktormutter Unkraut vielleicht wenigstens einen Titel (ein Dr. reicht, Professor muss nicht sein).

Siehste Norre, so entstehen Gerüchte.... :tease:

Koter, Dein doppelter Doktorvater ist allein Norre.

Die Berufsbezeichnung Professor, also ein Gelehrter und Wissenschaftler, von dem Wiki behauptet, es sei kein akademischer Grad, (Dr. → Dr. habil → (Privdoz.) → Berufung als Prof.) hatte mir besser gefallen.

Nehmen Sie es einfach hin, Herr Prof. Dr. mak Koter, denn bis wir Sie mit mit "Eure Spektabilität" anreden, dauert es noch etwas. Smile

Macro, Text im Objektmanager anordnen - norre - 05.11.2013

Hallo Koter,
darf ich dir noch mal lästig fallen?
Das Macro funktioniert ja super.
So jetzt will ich aber dass da genau umgekehrt ist, also was ganz oben auf der Seite steht soll im Objektmanager unten stehen.
Ich habe schon rumprobiert aber bekomme es nicht hin.
Wie müßte ich das SUB TextOrdBlattrandOben ändern, dass die Anordnung im Om umgekehrt ist?

Macro, Text im Objektmanager anordnen - koter - 05.11.2013

Hallo Norre,

das fällt nicht lästig.
Tausche die SUB gegen die Folgende aus:

Code:
Sub TextOrdBlattrandOben()

    Dim TextPosStID()

    Dim s As Shape

    i = 0

        For Each s In ActivePage.Shapes

        If s.Type = cdrTextShape Then

                i = i + 1

        End If

    Next

    ReDim TextPosStID(0 To i - 1, 0 To 1)

    i = 0

    TextPosStID(0, 0) = "0.258"

    For Each s In ActivePage.Shapes

        If s.Type = cdrTextShape Then

            TextPosStID(i, 0) = s.PositionY

            TextPosStID(i, 1) = s.StaticID

            i = i + 1

        End If

    Next

    Call QuickSortMultiDim(TextPosStID)

    Debug.Print UBound(TextPosStID)

    ActiveDocument.BeginCommandGroup "Text von Blattpos. Z-Anordnen"

    For i = UBound(TextPosStID) To 0 Step -1

        Set s = ActivePage.FindShape(StaticID:=TextPosStID(i, 1))

        s.OrderToFront

    Next i

    ActiveDocument.EndCommandGroup

End Sub

Erläuterung:
Die letzte For-Schleife läuft jetzt rückwärts.

Gruß

Koter