---

Hallo,
ich brauche Hilfe beim Programmieren eines Makros.

Ich will damit das aktuelle Datum mit meinem Namen als Text in Schriftgröße 2 je nach Blattformat an einer anderen Stelle platzieren.

Bisher hab ich es erst geschafft, daß der Text eingefügt wird, aber immer nur an der gleichen Stelle und auch nur in der Schriftart des Dokuments.

Vielleicht hat jemand eine Lösung für mein Problem.
Hier mein bisheriger Quellcode:

' ******************************************************************************
' c:\temp\swx2464\Macro1.swb - macro recorded on 11/09/04 by Rathgeb
' ******************************************************************************
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim Datum1
'Dim User1 As Object

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Datum1 = Date & "  Rathgeb"  ' Datum1 enthält das aktuelle Systemdatum.
'Set User1 = Application.

Set Note = Part.InsertNote(Datum1)

If Not Note Is Nothing Then
  Note.Angle = 0
  boolstatus = Note.SetBalloon(0, 0)
  Set Annotation = Note.GetAnnotation()
  If Not Annotation Is Nothing Then
      longstatus = Annotation.SetLeader2(False, False, False, False, False, False)
      boolstatus = Annotation.SetPosition(0.15, 0, 0)
  End If
End If
Part.ClearSelection
Part.WindowRedraw

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du kannst mit dem Befehl

Set Sheet = DrawingDoc.GetCurrentSheet
SheetProperties = Sheet.GetProperties()

die Blattgröße des aktuellen Blattes auslesen und erhälst folgende Werte in der Variabeln SheetProperties (Variant):

[ paperSize, templateIn, scale1, scale2, firstAngle, width, height ]

Dann kannst Du mit

ActXPos = SheetProperties(5)

beispielsweise auf die Blattbreite zugreifen und diesen Wert dann weiter bearbeiten

ActXPos = ActXPos - 0.199

Hoffe das hilft Dir weiter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP