Thema Datum  Von Nutzer Rating
Antwort
Rot Text ausserhalb des Textfeldes
19.08.2015 15:48:27 Raphi
Solved

Ansicht des Beitrags:
Von:
Raphi
Datum:
19.08.2015 15:48:27
Views:
1026
Rating: Antwort:
 Nein
Thema:
Text ausserhalb des Textfeldes

Hallo zusammen,

ich möchte via VBA Textfelder erstellen.

Leider wird mein Text ausserhalb des Textfeldes kopiert ;(

Kann mir jemand sagen wieso ?

 

Sub Test_2()
k = 5

Sheets("Stakeholder_Analyse").Activate
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
    .Name = Sheets("Stakeholder_Analyse").Cells(k, 4).Value
    With .TextFrame
      .AutoSize = msoTrue
      Selection.Characters.Text = Sheets("Stakeholder_Analyse").Cells(k, 4).Value
    End With
    .Fill.ForeColor.SchemeColor = 9
  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
Rot Text ausserhalb des Textfeldes
19.08.2015 15:48:27 Raphi
Solved