Arbeitsfläche an Objekt anpassen

  • das betrifft nur, wenn ich in dem modul "ThisMacroStoage" bin.
    ein neues modul, und darin ein neues macro, und es läuft.


    ~~~~~~


    ich hätte dein macro gerne etwas aufgebohrt (ok, nachdem du uns den kleinen finger geboten hast versuche ich nun den ganzen arm zu schnappen):


    - Messergebnis als textfeld in die datei
    - anpassungsmöglichkeit des textes wie position (relativ zum gemessenen objekt), schriftgröße, und evtl. auch schriftart und farbe, hinzufügen der einheit.
    - die textfelder auf wunsch auf neue ebene


    :)

    • Offizieller Beitrag
    Zitat

    Kannst mal einen Bildschirmabdruck davon zeigen wie es dann aussehen soll? Oder vielleicht eine CDR datei wo schon 1-2 Beispiele ausgefüllt sind.

    Ich schick Dir dazu was. Das wird hier zu chaotisch.

  • @Bart


    Sub createLabelMeasurements()



    Dim sh As ShapeRange, w#, h#
    ActiveDocument.Unit = cdrMillimeter
    Set sh = ActiveSelectionRange



    Xoffset = 0
    Yoffset = 0



    selectionX = sh.PositionX
    selectionY = sh.PositionY



    Label = sh.SizeHeight & " mm * " & sh.SizeWidth & " mm"



    Set s = ActiveDocument.ActiveLayer.CreateArtisticText(selectionX + Xoffset, selectionY + Yoffset, Label)



    End Sub



    @buggy-x


    machmal

    Ich arbeite noch an meinem Deutsch. Holländisch geht viel besser ;)

  • So macht er das mit Font (und Größe)
    Das mit Gruppen einzeln versteh ich nicht so.




    Sub createLabelMeasurements()


    Dim sh As ShapeRange, w#, h#
    ActiveDocument.Unit = cdrMillimeter
    Set sh = ActiveSelectionRange


    Xoffset = 0
    Yoffset = 0


    Font = "Arimo"
    Fsize = 20


    selectionX = sh.PositionX
    selectionY = sh.PositionY


    Label = sh.SizeHeight & " mm * " & sh.SizeWidth & " mm"


    Set s = ActiveDocument.ActiveLayer.CreateArtisticText(selectionX + Xoffset, selectionY + Yoffset, Label, , , Font, Fsize)


    End Sub

    Ich arbeite noch an meinem Deutsch. Holländisch geht viel besser ;)

  • Eigentlich ist (fast) alles móglich zu automatisieren in Coreldraw was man auch per Hand selber machen kann.


    ABER......


    Meinen Beitrag war um zu zeichen das es möglich ist und an Hand mehrere Beispiele hab ich gezeigt wie es ungefähr funktioniert.
    Weitere wünsche sollten vielleicht - gegen ein gepassten obulus - per PN geregelt werden.

    Ich arbeite noch an meinem Deutsch. Holländisch geht viel besser ;)