x8: Dokumentgröße an Objekt anpassen
#1
Hi,

in Illustrator gibts die Möglichkeit, die Dokumentgröße an ein Objekt auszurichten.
Gehofft, dass dies nach Umstieg von x6 auf x8 nun auch eine Funktion von Corel wäre – nix gefunden.
Darum das alte Makro, das noch unter x6 lief, "installiert" – s. meine damalige "gefundene" Suche: http://www.juergens-workshops.de/board/s...ro-gesucht

Doch ich kann es weder ausführen, noch bearbeiten – nicht mehr kompatibel?

[ATTACH=CONFIG]12319[/ATTACH]

Kennt jemand 'ne Alternative etc (außer Illustrator ;-))?

Danke!
mtemp

Doch noch ein Versuch via Google und dieses – funktioinierende – Makro gefunden:
http://community.coreldraw.com/talk/core...46/t/21417
Berücksichtigt zwar ebenfalls nicht Konturbreiten. Doch das bin ich ja gewöhnt...


Angehängte Dateien Thumbnail(s)
   
Zitieren
#2
Hallo mtemp,

mtemp schrieb:Berücksichtigt zwar ebenfalls nicht Konturbreiten. Doch das bin ich ja gewöhnt...

meinst Du mit „Konturbreiten“ vielleicht die Breite des Umrissstiftes?

Falls ja, probiere einmal das aus:

Code:
Sub SeiteAnpassen()

    Dim s As ShapeRange, r As New Shape
    
    Dim w As Double, h As Double, x As Double, y As Double
    
    Set s = ActiveSelection.Shapes.All
    If s.Shapes.Count = 0 Then
        MsgBox "Objekte auswählen"
        Exit Sub
    End If
    ActiveDocument.BeginCommandGroup "Seite anpassen"
    Application.Optimization = True
    
    s.GetBoundingBox x, y, w, h, True
    Set r = ActiveLayer.CreateRectangle2(x, y, w, h)
    s.Add r
    ActivePage.SizeWidth = w
    ActivePage.SizeHeight = h
    s.CenterX = ActivePage.CenterX
    s.CenterY = ActivePage.CenterY
    r.Delete
    Application.Optimization = False
    
    ActiveDocument.EndCommandGroup
    ActiveWindow.Refresh
    
End Sub

Gruß

Koter
Zitieren
#3
Hallo Koter,

ja, Umrissssstift – die Corelschen Bezeichnungen waren & sind ja schon immer etwas eigen Wink
Dein Makro werde ich später mal ausprobieren! Nur nicht später in dieser Nacht ...

... will sagen: Dankeschön für Deine Nachtschicht!
Zitieren
#4
... lang hats gedauert, nun isses endlich integriert – in Corel 2021 – statt eine Makrolösung o.dgl.:

   

;-)
[-] 1 Benutzer bedankt sich bei mtemp für diesen Beitrag:
  • Unkraut
Zitieren



Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  via VBA Objekt mit Namen ansprechen Pucki 2 252 24.08.2022, 18:34
Letzter Beitrag: Pucki
Photo Bogenschrift am Objekt ausrichten ist weg ? panzerauto 6 350 08.08.2022, 18:24
Letzter Beitrag: panzerauto
  Objekt aus Knoten mit Farbe füllen Spaceliner 7 395 02.08.2022, 10:11
Letzter Beitrag: Spaceliner
  Schrift oder Objekt einseitig grösser ziehen derBibo1969 2 528 01.03.2022, 20:00
Letzter Beitrag: derBibo1969
  VBA relative Objekt Position Pucki 27 2.456 15.11.2021, 22:39
Letzter Beitrag: koter
  Objekt verschieben Karthagos 2 672 03.05.2021, 12:38
Letzter Beitrag: Karthagos
  Objekt Anordnung / Abstand corely 1 590 25.04.2021, 14:05
Letzter Beitrag: Piet
  Objekt "durchscheinend" abru 4 839 25.03.2021, 19:04
Letzter Beitrag: abru
  Textrahmen an Textmenge anpassen (Corel 220) mtemp 2 487 11.02.2021, 11:28
Letzter Beitrag: mtemp
  Gestrichelte Linie um ein Objekt Holzmichl 4 813 01.02.2021, 17:49
Letzter Beitrag: norre