Zelle oberhalb eines Diagramms

Sub aaa() Dim r As Range Set r = ActiveSheet.ChartObjects(1).TopLeftCell MsgBox r.Address '$A$7 MsgBox r.Offset(-1).Address 'Fehler Die Metode 'Offset' für das Objekt 'Range' ist _ fehlgeschlagen MsgBox Cells(r.Row - 1, r.Column).Address '$A$6 End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Rudi;
trotz zT gleicher Eigenschaften sind die beiden Objekte nicht vglbar. Die Inkonsistenz entsteht anscheinend durch den Versuch, diese objektbildende Eigenschaft separierend anderweitig zu benutzen. Das ChartObject-Objekt ist ein Container für ein darin eingebettetes Chart-Objekt, das sowohl als eigenes Blatt angelegt oder eben auch auf diese Weise in ein normales Blatt integriert wdn kann. Während bei anderen, direkt in ein Blatt eingebetteten Objekten wie zB der Abbildung eines ZellBereichs eine Verwendung dieser Eigenschaft problemlos ist, kommt es bei diesem Container-Objekt offensichtlich zu einem Verlust der Bindung an das darin eingebettete Chart-Objekt, worauf die von mir zuvor genannte F-Meldung hinzuweisen scheint. Das mag daran liegen, dass hier, ähnlich den Rahmen bei MS-Word, eine etwas andere Art von ZeichnungsObjekt als Container benutzt wird.
Interessant wird es, wenn man dieses Container-Objekt mit einem normalen Shape gruppiert. Der Container wird dann bzgl bestimmter Eigenschaften durch das Shape ersetzt, d.h., .TopLeftCell des ChartObject-Objekts liefert nicht mehr die Zelle unter der linken oberen Ecke desselben, sondern die unter der oberen linken Ecke des Shapes! Zwar reagiert das Container-Objekt immer noch genauso auf die WeiterVerwendung dieses Range-Objekts, aber es kann nun durch die gleichwertige Eigenschaft des Shape-Objekts ersetzt wdn, die dieses Verhalten nicht zeigt.
Dein WorkAround erzeugt ebenso wie der von mir zuvor gezeigte keinen neuen Bezug auf dasselbe Objekt, sondern ein neues gleichartiges. Vglbares geschieht offensichtlich bei Ersetzung des Containers durch ein mit ihm gruppiertes Shape.
Gruß, Luc :-?

Hallo zusammen
Danke für die Ergänzungen resp. für das Teilen der Analyseergebnisse :)
Dass sich ChartObject und Shape (warum auch immer) unterschiedlich verhalten, könnte ich mir vorstellen. Was mich jetzt aber trotzdem an meiner Read-Only-Theorie zweifeln lässt, sind die nachfolgenden beiden Testfälle:

Sub Versuch1()
Dim r As Range, rr As Range
Set r = Sheets(1).ChartObjects(1).TopLeftCell
Set rr = r
MsgBox rr.Offset(-1).Address
End Sub

'-----------------------------

Sub Versuch2()
Dim r As Range
Set r = RangeByVal(Sheets(1).ChartObjects(1).TopLeftCell)
MsgBox r.Offset(-1).Address
End Sub

Private Function RangeByVal(ByVal r As Range) As Range
Set RangeByVal = r
End Function

Nach meinem Verständnis sollten die beiden Varianten (ByVal) eine "Kopie" der Range-Variable generieren und somit die Range von der Chart "entkoppeln". Dennoch erhalte ich die Fehlermeldung.
Mache ich einen Denkfehler?
cu
Chris

Sub zzz() Dim obCh As Chart, shCh As Shape With ActiveSheet Set obCh = .ChartObjects(1).Chart Set shCh = .Shapes(obCh.Parent.Name) shCh.TopLeftCell.Offset(-1).Select End With Set obCh = Nothing: Set shCh = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle oberhalb eines Diagramms

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread