Forums Neueste Beiträge
 

Custom Property Eintrag soll Shape createn

28/05/2008 - 13:39 von AndrewithVisio2002 | Report spam
Hallo Profis

Ich möchte in einem Shape eine Custom Property erstellen, die folgendes
macht:

Wenn ich etwas eintrage als Value der Custom Property, dann soll Visio ein
neues Shape erstellen mit dem Eintrag der Custom Property als Text. Die
Positionierung des neuen Shapes soll über dem vorhandenen geschehen!

Wàre echt toll, wenn ich hier Hilfe bekommen würde

Danke schon mal im voraus
 

Lesen sie die antworten

#1 Chris Roth [Visio MVP]
29/05/2008 - 01:11 | Warnen spam
Hi Andrew,

Sowas kann man nur per Code machen, und ein ShapeSheet trick.

Von einem Shape, kann man Code aufrufen mit Funktionen wie: CALLTHIS,
RUNADDON, RUNADDONWARGS, oder RUNMACRO. Fangen wir an mit einem
CALLTHIS-beispiel, der mit VBA-code verknuepft ist.

Wir werden zuerst eine Benutzer-definierte Cell brauchen, um den Code
aufzurufen. Z.b:

User.trigger = CALLTHIS("ThisDocument.DropShape", ,Prop.Beispiel)

Wenn Prop.Beispiel geaendert wird, wird User.trigger re-kalkuliert.
CALLTHIS wird dann "ThisDocument.DropShape" aufrufen.

Im VBA-projekt des Documents, muessen wir dazu folgendes haben:

Sub DropShape(shp As Visio.Shape, txt As String)

Dim shpNew As Visio.Shape

Set shpNew = shp.ContainingPage.DrawRectangle(0, 0, 3, 1)
shpNew.Text = txt

End Sub


Hope this helps,

Chris Roth
Visio MVP


Visio Guy: Smart Graphics for Visual People

Articles: http://www.visguy.com
Shapes: http://www.visguy.com/shapes
Dev: http://www.visguy.com/category/development/
Forum: http://www.viguy.com/vgforum

AndrewithVisio2002 wrote:
Hallo Profis

Ich möchte in einem Shape eine Custom Property erstellen, die folgendes
macht:

Wenn ich etwas eintrage als Value der Custom Property, dann soll Visio ein
neues Shape erstellen mit dem Eintrag der Custom Property als Text. Die
Positionierung des neuen Shapes soll über dem vorhandenen geschehen!

Wàre echt toll, wenn ich hier Hilfe bekommen würde

Danke schon mal im voraus

Ähnliche fragen