objBild drucken

04/04/2008 - 19:17 von Anne | Report spam
Hallo NG,

ich möchte Text aus einer Exceldatei (Nr. 2002) als Bild erzeugt, mit
Umschalttaste
u. Bearbeiten ( Bild wie angezeigt), drucken.
z.Bsp. auf Formular "Banküberweisungen

Sub Überweisung()
Range("A2:G15").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.IncrementRotation 90#
Worksheets("Tab").ChartObjects(1).PrintObject = True
Worksheets("Tab").ChartObjects(1).Delete
End Sub

Bei 2 x ausführen makro()
wird ChartObjects(1) angesprochen und nicht ChartObjects(2) usw.

Mfg.
Anne
 

Lesen sie die antworten

#1 Robert Gelbmann
07/04/2008 - 00:05 | Warnen spam
Hallo Anne!

"Anne" schrieb ...
ich möchte Text aus einer Exceldatei (Nr. 2002) als Bild erzeugt,
mit
Umschalttaste
u. Bearbeiten ( Bild wie angezeigt), drucken.
z.Bsp. auf Formular "Banküberweisungen

Sub Überweisung()
Range("A2:G15").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.IncrementRotation 90#
Worksheets("Tab").ChartObjects(1).PrintObject = True
Worksheets("Tab").ChartObjects(1).Delete
End Sub

Bei 2 x ausführen makro()
wird ChartObjects(1) angesprochen und nicht ChartObjects(2) usw.



Mir ist nicht so ganz klar, was du eigentlich machen möchtest:

(1) Was haben die ChartObjects (=Diagrammobjekte) mit den Grafiken
zu tun, die du mit CopyPicture/Paste erstellst?

(2) PrintObject = True sorgt dafür, dass - falls (!) gedruckt wird,
die entsprechende Grafik auch am Ausdruck - und nicht nur am
Bildschirm - erscheint. Es wird dabei aber *kein* Druckvorgang
gestartet! Ich nehme aber an, du willst gleich drucken, oder?

(3) Wenn du ohnehin gleich ausdruckst und dann wieder löscht, warum
dann der Umweg über die erstellte Grafik und warum nicht gleich
drucken? Abgesehen davon: Wenn die Grafikkopie am gleichen Blatt
steht, wie der Originaltext, dann würde standardmàßig beides (!)
gedruckt werden?!

In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen


Servus aus Wien,
-Robert Gelbmann-

The world is quiet here.

Ähnliche fragen