Thema Datum  Von Nutzer Rating
Antwort
30.05.2013 12:53:20 Thomas
NotSolved
Blau Textfeld
 31.05.2013 01:20:32 Gast71502
NotSolved
11.06.2013 11:58:47 Thomas
NotSolved
20.06.2013 11:20:20 Thomas
NotSolved
20.06.2013 12:18:16 Gast21409
NotSolved

Ansicht des Beitrags:
Von:
Gast71502		 Datum:
31.05.2013 01:20:32		 Views:
1214		 Rating:
     
Antwort:
  Ja
Thema:
Textfeld		 
Option Explicit

Sub Makro()
  
  Dim rngAnchor   As Excel.Range
  Dim shpTextBox  As Excel.Shape
  Dim sngTxtWidth   As Single
  Dim sngTxtHeight  As Single
  
  Set rngAnchor = ActiveCell
  
  sngTxtWidth = Application.CentimetersToPoints(5)  ' <- anpassen
  sngTxtHeight = Application.CentimetersToPoints(2) ' <- anpassen
  
  Set shpTextBox = rngAnchor.Worksheet.Shapes.AddTextbox( _
                      Orientation:=msoTextOrientationHorizontal, _
                      Left:=rngAnchor.Left, _
                      Top:=rngAnchor.Top, _
                      Width:=sngTxtWidth, _
                      Height:=sngTxtHeight)
  
  With shpTextBox
    
    .Placement = xlMove
    
    With .TextFrame2
      .HorizontalAnchor = msoAnchorCenter
      .VerticalAnchor = msoAnchorMiddle
      
      .TextRange.Font.Size = 16
      .TextRange.Text = "So wirds gemacht."
    End With
    
  End With
  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.05.2013 12:53:20 Thomas
NotSolved
Blau Textfeld
 31.05.2013 01:20:32 Gast71502
NotSolved
11.06.2013 11:58:47 Thomas
NotSolved
20.06.2013 11:20:20 Thomas
NotSolved
20.06.2013 12:18:16 Gast21409
NotSolved