Ein Beispiel

Test-Titel

Versionen:  97  2000  XP/2002  2003  2007  Niveau: Level Level Level Level Level

Übersicht:

Blablabla


Sooo... mal ein Test


Sub TextToGroup(ByVal vshpMyShape As Shape, ByVal vvarArray As Variant, _
  ByVal vstrText As String, ByVal vstrObjectName As String)
'hebt die Gruppierung vshpMyShape auf,
'schreibt vstrText In die vstrObjectName und
'stellt die Gruppe vshpMyShape wieder her
'alle Eigenschaften von vshpMyShape werden ebenfalls wiederhergestellt
Dim srgGroup As Excel.ShapeRange
Dim shpGroup As Shape
Dim varArray() As Variant
Dim blnSwitch As Boolean
'speichert die Eigenschaften der Gruppe
     Call RetainGroupProps(blnSwitch, vshpMyShape)
'Gruppierung aufheben
     On Error Resume Next
     vshpMyShape.Ungroup
     If Err.Number <> 0 Then
'vshpMyShape ist keine Gruppe!
         MsgBox vshpMyShape.Name & " Is Not a group!", vbCritical
         On Error GoTo 0
         Exit Sub
     End If
     On Error GoTo 0
     varArray = vvarArray
'nicht alle Objekte sind vorhanden
     If Not bShapeArrayExists(varArray, vshpMyShape.Parent) Then
         ActiveSheet.Shapes(varArray(0)).Select
         Set shpGroup = Selection.ShapeRange.Regroup
         Call RetainGroupProps(blnSwitch, shpGroup)
         MsgBox shpGroup.Name & " enthlt nicht alle erwarteten Objekte." & vbCr _
          & "Die Gruppe wurde ohne nderungen wiederhergestellt!", vbCritical
         Set shpGroup = Nothing
         Exit Sub
     End If
'Text In vstrObjectName schreiben
     With vshpMyShape.Parent
         .Shapes(vstrObjectName).TextFrame.Characters.Text = vstrText
'zum Gruppieren wir ein ShapeRange!
         Set srgGroup = .Shapes.Range(varArray)
     End With
'durch das Gruppieren der ShapeRange bekommen wir wieder ein Shape
     Set shpGroup = srgGroup.Group
'Wiederherstellen der Eigenschaften der Gruppe
     Call RetainGroupProps(blnSwitch, shpGroup)
     Set srgGroup = Nothing
     Set shpGroup = Nothing
MsgBox "Get Is Not a keyword here And ' doesn't start a comment!" 'comment
more commenting 'follows "here And ' " here _
jumping comment...
End Sub
  

Das nicht mehr.

Hier noch ein blabla Keyword

 

imgMehr Test

blabla

blabla

blala

lalabla

Noch mehr schner Text

Jetzt kommt ein Achtung...

imgAAAAAAAAAAAAAACHTUNG