Eigenschaften von selbst erstellen Shapes

Tja,

VBA ist nicht ganz so dumm ;-)

Also zur Schleife:

es wird im gesamten Dokument nach TextFrames (Textrahmen) gesucht. Diese zählen zu den Shapes (liegen also über der Textebene), was über die .Type-Eigenschaft abgefragt wird.

Also macht der Code folgendes:

Gehe von Shape zu Shape im Dokument und frage:

bist du ein Shape und vom Typ TextFrame? Wenn ja: besitzt du Text (TextFrame.HasText)?

Wenn ja, dann berücksichtige den gesamten Text im TextFrame (TextFrame.TextRange).

Setze nun die Eigenschaft "Fett" für den gesamten Textes im TextFrame auf True oder False in Abhängigkeit vom Inhalt der Boolschen Variablen (bBold).

Du verwendest hier also Eigenschaften und Methoden für das TextFrame-Objekt und über die verwendeten Eigenschaften und Methoden wird der gesamte Inhalt eines TextFrames auf die bestimmte Eigenschaft "Fett" gesetzt - oder eben nicht.

kein Zauber, kein Voodoo, nur "simple" VBA-Programmierung.

Ist das jetzt etwas klarer?

Sonst frag weiter.

Hallo zusammen,



ich habe in der zwischenzeit lange überlegt. Da es keine passende Eigenschaft des Shape-Objektes gibt, habe ich mir ein Makro geschrieben welches die Zelle darunter selektiert.



Da ich das shape via VBA erstelle weiße ich in der OnAction-Eigenschaft das Makro zu.

In dem Makro bestimme ich das aufrufende Objekt und selektiere die Zelle darunter:



Public Sub markCellBelow()

'Variablendeklaration

Dim shpKr As Shape

On Error GoTo markCellBelow_Error

'Initialisierung

'Programmcode

'Alle Kreise anhand des verwendeten Namens (siehe Function setzeValKreise) wieder entfernen

For Each shpKr In wsData.Shapes

If shpKr.name = Application.Caller Then

shpKr.TopLeftCell.Offset(1, 1).Select

Exit For

End If

Next

Exit Sub

'Fehlerroutine

markCellBelow_Error:

MsgBox "markCellBelow: Fehler beim markieren der Zelle von Shape: " & Application.Caller & _

vbCrLf & "Fehlerbeschreibung: " & vbCrLf & Err.Description & "!", vbCritical



End Sub

Hallo,



Vorlagen in Visio werden Shapes genannt.

Wie du ein benutzerdefiniertes Shape erstellst, das wird dir im Artikel
Erstellen eines benutzerdefinierten Shapes erläutert.



Gruss

Solveig

Danke für Antwort

In PP 2007 muss die Form zunächst in eine Freihandform umgewandelt werden. Die dann hinzugefügten Punkte haben allerdings nicht die selben Eigenschaften wie die standardmäßig vorhandenen Verbindungspunkte:

Wenn Verbindungslinien/ -pfeile an diese Form geknüpft werden sollen, so legen sich diese Linien entweder parallel oder von der Innenseite der Form her an den neuen Punkt an - was nicht erwünscht ist.

Habe keine Möglichkeit gefunden, dieses Verbindungsverhalten zu verändern.

Wie lassen sich in PP 2007 Verbindungspunkte mit den gleichen Eigenschaften erstellen wie die standardmäßig in shapes vorhandenen?

Viele Grüße

Rainer

Es spielt keine Rolle ob die Diagramme gruppiert sind oder nicht, sie sind immer noch in der ChartObjects-Collection einzeln zu finden.

Und bei einem Shape bekommst Du über die GroupItems Eigenschaft ein GroupShapes-Objekt zurück, das die einzelnen Formen in der angegebenen Gruppe darstellt.

Was willst Du denn eigentlich machen?

Andreas.