Per VBA Schriftzug in Hintergrund auf Excel-Formular

Question

Moin,

ich habe aktuell ein Problem, dass ich einfach nicht gelöst bekomme.
In Excel 2003 funktioniert es, aber nicht in Excel 2007... :-(

Sub Schriftzug()
Sheets("Seite 1").Shapes.AddTextEffect(msoTextEffect21, "unvollständig", "Arial Black" _
, 72#, msoFalse, msoFalse, 200#, 200#).Select
Selection.ShapeRange.Name = "art1"
Selection.ShapeRange.IncrementRotation -57#
Selection.ShapeRange.IncrementLeft -260#
Selection.ShapeRange.IncrementTop 100
Selection.ShapeRange.ScaleWidth 1.26, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.11, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 1.12, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleWidth 1.08, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ZOrder msoSendToBack
End Sub

Mein Problem:
Trotz Befehl "...SendToBack" taucht der Schriftzug immer im Vordergrun auf, sodass das eigentliche Formular überdeckt wird. Was natürlich Käse ist.

Gibt es einen Trick, um den Schriftzug doch hinter die Formulardaten zu bekommen? Danke für JEDEN Tipp!

Gruß,
michael

Answer 1

Ergänzen kann ich durch diverses Probieren mittlerweile, dass es wohl mit dem Text-Effekt als solchem zusammenhängt:

wenn ich statt "...AddTextEffect(msoTextEffect21...." den Effekt "msoTextDirectionLeftToRight" auswähle, habe ich zumindest mal durchsichtige Buchstaben, durch die das Formular 'durchscheint'.

Allerdings ist die Buchstabenumrandung rot, grau wäre besser.
Ich forsche mal weiter und hoffe trotzdem auf Antworten hier...

Answer 2

Moin,

hat denn keiner den Hauch einer Idee...?!

Answer 3

schaue hier
http://www.ms-office-forum.net/forum/showthread.php?t=310302

Gruß Hajo