Thema Datum  Von Nutzer Rating
Antwort
20.08.2015 09:28:24 Mike
NotSolved
Blau Shape positionieren
 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:
Gast76282		 Datum:
20.08.2015 09:55:23		 Views:
636		 Rating:
     
Antwort:
  Ja
Thema:
Shape positionieren

Hallo,

man kann solche Shapes verschiedenartig ansprechen.

3 Möglichkeiten

- über eine "Array"-Variable

- über eine Collection

- oder direkt über den Namen.

 

Sub Test_3()

Dim i As Integer
Dim cSh As New Collection
Dim sh(2) As Shape



For i = 1 To 3

Set sh(i - 1) = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 200, 20 * i, 20#, 20#)

sh(i - 1).Name = "Variable" & i
sh(i - 1).TextFrame.AutoSize = msoTrue
sh(i - 1).TextFrame.Characters.Text = "Variabele " & i
Next i

For i = 1 To 3
sh(i - 1).Left = 250
Next i




For i = 1 To 3
cSh.Add ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20 * i, 20#, 20#)

cSh.Item(cSh.Count).Name = "MeineTextbox_" & i
cSh.Item(cSh.Count).TextFrame.AutoSize = msoTrue
cSh.Item(cSh.Count).TextFrame.Characters.Text = "Hallo_" & i
Next i

For i = 1 To 3
cSh.Item(i).Left = 50
Next i

For i = 1 To 3
ActiveSheet.Shapes("MeineTextbox_" & i).Left = 100
Next i





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