Shape positionieren

[Wolfgang Kutsche]

enVerehrte NG,

ich möchte auf einem Tabellenblatt mit VBA ein bestehendes Shape an
verschiedene Stellen positionieren.
Hintergrund: beim Ausdruck dieses Tabellenblattes wird in bestimmten
Situationen das Shape mitgedruckt ... in anderen nicht ( außerhalb des
Druckbereiches ).
Diese Positionen sollen möglichst an einer Zelle festgemacht werden.
Wer kann mir helfen.
Mit freundlichen Grüßen
Wolfgang

[unknown]

Hallo Wolfgang,
benutze die Top- und Left-Eigenschaft der jeweiligen Zelle.

MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung

[Wolfgang Kutsche]

Hallo Frank,

vielen Dank für Deinen Hinweis, aber mit der TopLeftCell-Eigenschaft kann
ich die Zelle, die von der Ecke des Shapes berührt wird, erkennen, aber nicht
das Shape an eine vorgegebene Zelle verschieben.

ActiveSheet.Shapes("Text Box 1").TopLeftCell.Address

..was mache ich falsch ?

Mit freundlichen Grüßen
Wolfgang

Post by unknown
Hallo Wolfgang,
benutze die Top- und Left-Eigenschaft der jeweiligen Zelle.
MfG Frank
_____________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Website: http://www.xl-faq.de; Auftragsprogrammierung

[Stefan Stoehr]

Hallo Wolfgang,

Post by Wolfgang Kutsche
vielen Dank für Deinen Hinweis, aber mit der TopLeftCell-Eigenschaft
kann ich die Zelle, die von der Ecke des Shapes berührt wird,
erkennen, aber nicht das Shape an eine vorgegebene Zelle verschieben.
ActiveSheet.Shapes("Text Box 1").TopLeftCell.Address
..was mache ich falsch ?

versuchs so:

ActiveSheet.Shapes("Text Box 1").Left = Cells(3, 4).Left
ActiveSheet.Shapes("Text Box 1").Top = Cells(3, 4).Top

cu
Stefan

[Wolfgang Kutsche]

Hallo Stefan,

vielen Dank für Deine Hilfe, damit werde ich wohl zurechtkommen.

Mit freundlichen Grüßen
Wolfgang

Post by unknown
Hallo Wolfgang,

Post by Wolfgang Kutsche
vielen Dank für Deinen Hinweis, aber mit der TopLeftCell-Eigenschaft
kann ich die Zelle, die von der Ecke des Shapes berührt wird,
erkennen, aber nicht das Shape an eine vorgegebene Zelle verschieben.
ActiveSheet.Shapes("Text Box 1").TopLeftCell.Address
..was mache ich falsch ?

ActiveSheet.Shapes("Text Box 1").Left = Cells(3, 4).Left
ActiveSheet.Shapes("Text Box 1").Top = Cells(3, 4).Top
cu
Stefan