Office: Textfeld in ein Shape einfügen und hochzählen

Hallo,
ich bräuchte mal wieder eure Hilfe. Ich erstelle per Code mir einige shapes und möchte diesen dazu noch ein Textfeld mit einer Zählvariablen hinzufügen.
Das erstellen der Shapes klappt, aber ich bekomme keine Textfelder hinein.
Wie muß ich das gerade eingefügte Shape ansprechen damit ich ein Textfeld einfügen kann?


MfG

wyatt

:)

 

HAllo

Zeigst du uns mal den Code zum Erstellen der Shapes ?

ransi

 

Hi Wyatt,

das gerade eingefügte Shape ist das letzte, also kann man es ansprechen mit ActiveSheet.Shapes(ActiveSheet.Shapes.Count). Oder du schreibst es beim Einfügen auf eine Variable, dann kannst du das Shape über diese Variable ansprechen.

 

Hallo Ransi,
anbei der Code.
Je mehr ich darin rumspiele umsomehr Fehler bekomme ich ( "Zugriff verweigert") beim 2.Durchlauf.

@Beverley: das bringt es leider auch nicht.
Code:

MfG
wyatt

 

Hallo Waytt,

mit ",Shapes.Count" würde ich bei xl2007 vorsichtig sein, da kann man böse Überraschungen erleben.

so?

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************
Option Explicit
Public Sub Bilder_Hochzählen() 'Neu erstellen u. gruppieren
Dim objShp As Shape
Dim iZahl As Integer
With ActiveSheet
For iZahl = 1 To 2
Set objShp = .Shapes.AddShape(msoShapeOval, 10 + 10 * iZahl, 15 + 2 * iZahl, 40, 50)
objShp.Name = "Oval" & iZahl

With objShp.TextEffect
.FontName = "Arial"
.FontSize = 10
.Text = iZahl
End With
Next iZahl
End With
Set objShp = Nothing
End Sub





« Gruß Sepp »

 

Hallo Sepp,

ich habe nur Excel2003, aber das Makro von Dir bringt mir auch nur Fehler.
Wenn ich " On Error Resume Next " davor setzte,dann erstellt er mir zwar die Ovale aber keinen Text darin. Ich habe es jetzt so gelöst nachdem ich mit der rechten Maustaste im Kontextmenü des Shape die Option " Text hinzufügen " gefunden habe. Jetzt brauche ich nur noch einen Faktor der mir die Schriftgrösse automatisch an die Grösse (Variabel") des Shape anpasst.


Code:

MfG
wyatt