Forum: Programmieren allgemein
by RWarnecke,
31. Jul 2012
Ich nutze nur Excel 2007 und 2010. Wenn ich ein Makro direkt in Excel ausführe, dann funktioniert TopLeftCell und BottomRightCell.
Forum: Programmieren allgemein
by RWarnecke,
31. Jul 2012
Hallo Elvis,
danke erstmal für Deine beiden Funktionen. Ich habe mal versucht diese nachzuvollziehen. Leider gibt es jedesmal die Fehlermeldung "Die Methode 'TopLeftCell' wird vom Automatisierungsobjekt nicht unterstützt". Ich habe Deine erste Funktion so aufgerufen :
ExcelApp := GetActiveOleObject('Excel.Application');
for I := 1 to ExcelApp.ActiveSheet.Shapes.Count do
...
Forum: Programmieren allgemein
by RWarnecke,
30. Jul 2012
Das war auch zuerst mein Gedanke. Dabei besteht nur ein Problem, woher weiß ich bei wievielen Pixeln die Spalte C anfängt und aufhört.
Forum: Programmieren allgemein
by RWarnecke,
30. Jul 2012
Das Beispiel kapiere ich nicht. Zumal ich im Beitrag #7 ja geschrieben hatte, dass BottomRightCell einen Fehler in Delphi prodiziert.
Forum: Programmieren allgemein
by RWarnecke,
30. Jul 2012
Nimm mal Range statt Item. Dann kommst Du an den Namen und an die Werte Top und Left. Mit Textframe.Characters.Text kommst Du an den Inhalt des Textfeldes.
Forum: Programmieren allgemein
by RWarnecke,
29. Jul 2012
Wie soll mir das weiterhelfen, wenn das Textfeld kleiner ist als die Zelle selber ?
Das ist auch richtig so, dass ich Text Box ausgeschlossen habe. Das Textfeld heißt nur so. In meinem VBA Beispiel prüfe ich ja nur auf den Namen ab, der halt "Text Box" heißt.
TopLeftCell und BottomRightCell liefern in Delphi den Fehler:
Wie komme ich an die Koordinaten entweder als Zahlen(6,9) oder als...
Forum: Programmieren allgemein
by RWarnecke,
29. Jul 2012
Über das folgende Makro kann ich ermitteln, welches Textfeld in welcher Zelle ist : (Quelle aus dem Crosspost)
Sub Makro1()
Dim shpe As Shape
For Each shpe In ActiveSheet.Shapes
Debug.Print shpe.Name
If shpe.Name Like "Text Box*" Then
If Not Intersect(Range("F10"), Range(shpe.TopLeftCell, shpe.BottomRightCell)) Is Nothing Then
'hier der...
Forum: Programmieren allgemein
by RWarnecke,
28. Jul 2012
Mit welchem Format ? Ich habe nicht so viel Erfahrung in VBA.
Forum: Programmieren allgemein
by RWarnecke,
28. Jul 2012
Hallo zusammen,
ich muss eine Exceldatei 2010 auslesen. In dieser Exceldatei sind Textfelder, keine Textboxen, im Bereich einzelner bestimmten Zellen positioniert. Wie bekomme ich über VBA raus, ob sich ein Textfeld im Bereich dieser Zelle befindet ?
Edit: Crosspost