Hallo,
ich möchte ein Combi-Element dynamisch anpassen.
Aufgabe ist es den Defaultzustand um mehrere neue Werte zuergänzen und diesen einen Text und Wert zuzuweisen.
Mein erster Entwurf hinkt leider etwas.
Sub combi_change()
Dim myScr As DynPicture
Set myScr = MyWorkspace.ActiveDocument.DynPictures.Item("Test_Bild")
If Not myScr Is Nothing Then
Dim myElem As Element
Set myElem = myScr.Elements.Item("Combi_Element")
On Error Resume Next
If Not myElem Is Nothing Then
'Hier sollte der neue Wert erzeugt werden der dann die Bezeichnung und den Auslösenden Wert bekommt
myElem.DynProperties("States[1].TextOrBitmap") = "Bezeichnung_1" ' Funktioniert
myElem.DynProperties("States[1].ValueMask") = 200 ' Funktioniert nur teilweise die nicht betroffenen Felder bleiben auf Punkt stehen wollte dann hier eine Null
End If
myScr.Save
End If
End Sub
Danke
This is a migrated post! Originally posted on 01.07.2014 by user niclasfl. Please be aware that information can be outdated.