Thema Datum  Von Nutzer Rating
Antwort
Rot Shape positionieren
 20.08.2015 09:28:24 Mike
NotSolved
20.08.2015 09:55:23 Gast76282
NotSolved
20.08.2015 10:13:50 Mike
NotSolved
20.08.2015 10:04:04 Gast68954
NotSolved

Ansicht des Beitrags:
Von:
Mike		 Datum:
20.08.2015 09:28:24		 Views:
1383		 Rating:
     
Antwort:
  Ja
Thema:
Shape positionieren

Hallo Zusammen,

würde gerne mein Textfeld positionieren.

Habe es wiefolgt funktioniert. Klappt auch, leider ist kann ich den Namen des Arrays  nicht mit der Variablen k ansteuern.....
Das ganze soll in einem Loop am Ende für mehrere Textboxen funktionieren.

Kann mir jemand sagen wie ich das Array mit der Variablen k ansteuern kann ?

Vielen Dank und Viele Grüße,

Mike

Sub Test_3()

w = 5

Sheets("Stakeholder_Analyse").Activate
Dim objShp As Object
Set objShp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
With objShp
    .Name = w
    With .TextFrame
      .AutoSize = msoTrue
     .Characters.Text = Sheets("Stakeholder_Analyse").Cells(w, 2).Value & " " & Sheets("Stakeholder_Analyse").Cells(w, 3).Value & " " & Sheets("Stakeholder_Analyse").Cells(w, 4).Value
    End With
    'Formatierung der Textbox
    
    .Fill.ForeColor.SchemeColor = 9
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
    
End With

ActiveSheet.Shapes.Range(Array("VarRaw")).Select
ActiveSheet.Shapes.Range(Array("VarRaw")).Top = Range("K2").Top
ActiveSheet.Shapes.Range(Array("VarRaw")).Left = Range("K2").Left

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Shape positionieren
 20.08.2015 09:28:24 Mike
NotSolved
20.08.2015 09:55:23 Gast76282
NotSolved
20.08.2015 10:13:50 Mike
NotSolved
20.08.2015 10:04:04 Gast68954
NotSolved