|
pardon, was as joke – back to native now :
OK – hat sich erledigt (If shp.AutoShapeType = msoShapeRoundedRectangle )
oder wie ich schon im Dim meines Codes mit dem Zaunpfahl gewunken habe
(Dim objShpe As Shape 'Testobjekte sind vom Typ 5 (msoShapeRoundedRectangle) !!!)
<< Dir positiv anzurechnen ist jedoch, dass du das mögliche Problem einkreisen konntest.
hm, werfe ich einen Blick in die gepustete Demo, dann lieg ich :
< Ohne dein Dokument auch nur gesehen zu haben, ahne ich schon eine Menge Stolperfallen
- richtig im Trend. Was du da vorzuhaben scheinst (wieder eine Annahme) lautet doch in etwa so :
Ändert sich was in Sheets("Lists").Colums("D:G") ab Zeile 3 nach unten DANN
ändere was (Text) im Zeichnungsobjekt (Checklist Structure)
weitere Bedingungen :
jede Spalte in Lists entspricht einer senkrechten Reihe Objekte in Strukture
die Spalten sind ungleichmäßig gefüllt (enthalten womöglich Hinweise, die auszuschließen sind)
Leere Zellen (nach Änderung) im untersuchten Bereich löschen das zugeordnete Zeichnungsobjekt ?
Hinzukommende Werte-Zellen (nach Änderung) zeichnen neue Rechtecke – oder ?
(na das wird ein Oktoberfest ;)
Fazit :
Wäre da nicht noch die (mir noch verborgene) Sache mit den Checkboxen, dann würde ich meinen:
Lass das EVENT einfach diesen ganzen Teil der Grafik neu, nach den Inhalten in Lists zeichnen !
|