Ergebnis 1 bis 3 von 3

Thema: x8: Dokumentgröße an Objekt anpassen

  1. #1
    Erfahrener Benutzer Member Avatar von mtemp
    Registriert seit
    09.10.2009
    Beiträge
    148

    Standard x8: Dokumentgröße an Objekt anpassen

    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/boa...-Makro-gesucht

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

    2016-11-07_shot_020.png

    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/.../f/246/t/21417
    Berücksichtigt zwar ebenfalls nicht Konturbreiten. Doch das bin ich ja gewöhnt...
    Geändert von mtemp (07.11.2016 um 20:40 Uhr)

  2. #2
    Erfahrener Benutzer Profi Member
    Registriert seit
    24.03.2012
    Beiträge
    853

    Standard

    Hallo mtemp,

    Zitat Zitat von mtemp Beitrag anzeigen
    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
    W7pro|Corel X4/X7(64 Bit)

  3. #3
    Erfahrener Benutzer Member Avatar von mtemp
    Registriert seit
    09.10.2009
    Beiträge
    148

    Standard

    Hallo Koter,

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

    ... will sagen: Dankeschön für Deine Nachtschicht!

Ähnliche Themen

  1. Umrisslinie an Objekt anpassen
    Von Giralimone im Forum Corel Draw
    Antworten: 7
    Letzter Beitrag: 15.07.2014, 12:57
  2. Trickkiste anpassen
    Von helmut 5 im Forum PhotoImpact
    Antworten: 7
    Letzter Beitrag: 19.06.2011, 19:19
  3. 2 Bilder anpassen
    Von PecuniaHora im Forum PhotoImpact
    Antworten: 4
    Letzter Beitrag: 29.06.2008, 14:17
  4. Objekt entfernen, Objekt klonen ?
    Von R.Lydia im Forum PhotoImpact
    Antworten: 1
    Letzter Beitrag: 05.09.2006, 19:51
  5. Antworten: 1
    Letzter Beitrag: 17.08.2006, 21:56

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •