---

Mahlzeit zusammen ,

Ich möchte über VBA alte Skizzierte Symbole durch neue ersetzen, dass funktioniert auch soweit ganz gut.
Jetzt habe ich das Problem das diese Symbole unterschiedlich viele "angeforderte Eingaben (aE)" besitzen ( von keiner bis hin zu 12 aE). Wenn ich das richtig verstehe dürfen in dem Array zum füllen der aE nur exakt die Menge an Strings stehen die auch das Symbol an aE besitzt. Wenn die Anzahl unterschiedlich ist werden die aE nicht richtig gefüllt bzw. sind Leer.

Wie komme ich an die richtige Anzahl an angeforderte Eingaben vor dem einfügen eines Symbols?

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

---

das könnte über die einzelnen Textboxen gehen. Diese haben die Eigenschaft .FormattedText. Darin sind wohl "<Prompt>" und "</Prompt>" enthalten. Wenn es jetzt keine anderen Formen von der angef. Eingabe gibt (?), dann sollte das schon eine Lösung sein.

Code:

---

' "oSketchSymDef" ist die SketchedSymbolDefinition
' ...
'Anzahl "angeforderter Eingaben" ermitteln
    Dim sTmp As String, oTB As TextBox
    Dim iCnt As Integer
    For Each oTB In oSketchSymDef.Sketch.TextBoxes
        sTmp = oTB.FormattedText
        If InStr(sTmp, "/Prompt") Then iCnt = iCnt + 1
    Next
    'iCnt ist jetzt die gesuchte Anzahl

---

------------------
Gruß KraBBy

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

---

Funktioniert einwandfrei!
Da komme ich dann jetzt schon mal weiter, besten Dank!

MfG
HawK

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

---

Moin!

Wie kann ich denn die skizzierten Symbole tauschen?

ich möchte, das dass Symbol an der gleichen Stele ersetzt wird (Es ist nur ein anderes Logo drin und sonst gleich)

Danke für eure Hilfe

Gruß Pete

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

---

Soll
a) generell die Definition (innerhalb der Zg.) ersetzt werden, oder
b) nur ein einzelnes Exemplar?

für a)
SketchedSymbolDefinition.CopyTo Method

für b) ist evtl. nur die Definition vom Exemplar zu ersetzen (habe ich nicht ausprobiert)
SketchedSymbol.Definition Property

------------------
Gruß KraBBy

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