Textfeld dynamisch erzeugen und als Hinweis kurz einblenden

Textfeld dynamisch erzeugen und als Hinweis kurz einblenden. Shapes.AddTextbox
'Textfeld erstellen, benennen und Text, Schrift, Farbe etc. festlegen
Sub Hinweis_erstellen()
Dim AZZ As Long, AZS As Integer
'Position der Einfügemarke zwischenspeichern
AZZ = ActiveCell.Row
AZS = ActiveCell.Column
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 30, 30, 200, 20).Select
Selection.Name = "Text Box 1"
Selection.Characters.Text = "Hinweis: ich verschwinde gleich !"
With Selection.Characters(Start:=1, Length:=8).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.Underline = xlUnderlineStyleSingle
End With
With Selection.Characters(Start:=9, Length:=39).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
.ColorIndex = 11
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 9
Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 4, 0.23
'Position der Einfügemarke wieder herstellen
Cells(AZZ, AZS).Select
'nach Zeitablauf von 2 Sekunden das Makro zum Löschen des Textfeldes aufrufen
Application.OnTime Now + TimeValue("00:00:03"), _
ThisWorkbook.Name & "!Hinweis_löschen"
End Sub
'das zuvor erstellte Textfeld löschen
Sub Hinweis_löschen()
ActiveSheet.Shapes("Text Box 1").Delete 'das Textfeld löschen
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt