Um so ein Hyperlink-Shape zu erzeugen, das den Hyperlink-Dialog beim Herausziehen aus der Schablone öffnet, muss im ShapeSheet in der Zelle EventDrop der Befehl =DOCMD(1585) eingefügt werden. Warum 1585? Diese Zahl steht für die Konstante visCmdInsertHyperLink, die man in VBA im Objektkatalog in der Klasse VisUICmds
