gut, nun habe ich aber das problem dort ein zweites macro zu platzieren. auch bei "Neuer Macro" ist am ende nur ein macro in "global macros".
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 -
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.
-
Sub createLabelMeasurements()
Dim sh As ShapeRange, w#, h#
ActiveDocument.Unit = cdrMillimeter
Set sh = ActiveSelectionRangeXoffset = 0
Yoffset = 0selectionX = sh.PositionX
selectionY = sh.PositionYLabel = sh.SizeHeight & " mm * " & sh.SizeWidth & " mm"
Set s = ActiveDocument.ActiveLayer.CreateArtisticText(selectionX + Xoffset, selectionY + Yoffset, Label)
End Sub
machmal
-
Mahlzeit,
das sind hier echt gute Ideen. Das die Schriftart auch angezeigt wird fände ich auch gut. Leider komm ich nicht weiter wie der Code für die Schriftart heißen soll.
-
Ach ja und das Gruppen einzeln aufgelistet werden wäre Top.
-
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 = ActiveSelectionRangeXoffset = 0
Yoffset = 0Font = "Arimo"
Fsize = 20selectionX = sh.PositionX
selectionY = sh.PositionYLabel = sh.SizeHeight & " mm * " & sh.SizeWidth & " mm"
Set s = ActiveDocument.ActiveLayer.CreateArtisticText(selectionX + Xoffset, selectionY + Yoffset, Label, , , Font, Fsize)
End Sub
-
du hast 3 objekte, dann könnten sich die 3 einzelgrößen und die gesamtgröße irgendwo abbilden lassen.
-
das ganze mit umfängen (pfadlängen) und flächeninhalte wäre auch auch prima.
-
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. -
ja ist ok, hab aber erst im neuen jahr ezit, mich da mal etwas tiefer rein zu knien. danke erstmal bis hierhin
-
Ja da haste recht, das wird auch aufwendig. Ich überleg mir mal was genau ich an Informationen gebrauchen kann, dann schreib ich dir mal.
-