Office: schlechte Bildqualität beim Export

Jetzt müsste es geklappt haben.

TestBild3.bmp

Also, gibt es da eine Möglichkeit den oberen und linken Rahmen zu erhalten, ohne den Bereich zu erweitern? Einen rechten Rahmen an der Zelle links vom linken Rand zu setzen hilft leider nicht.

 

Am einfachsten: gesamten Bereich markieren -> Rahmen -> Alle Rahmenlinien.

 

Ich weiß nicht, ob ich dich richtig verstanden habe. Der Zellbereich besitzt in Excel bereits einen vollständigen Rahmen. Im Ausschnitt, den ich hochgeladen habe, ist links und oben kein Rahmen zu sehen. Der ist aber vorhanden. Beim Exportieren über deine Prozedur wird er aber nicht mitkopiert. Die einzige Lösung, die ich bisher gefunden habe, ist, die Gitternetzlinien wieder zu aktivieren. Allerdings ist der "Rahmen" dann nur hellgrau und nicht schwarz wie bei den anderen Zellen.

 

Hallo,

natürlich ist der linke und der obere Rahmen nicht da.
CopyPicture kopiert diese nicht mit, da die beiden Rahmen, eigentlich nicht zu den Zellen gehören, sondern zu den Zellen drüber, bzw. links daneben.
Ist "normal" in Excel.

Das kriegst du nur hin, wenn du den Bildschirm mit einem Snipping-Tool abfotografierst.

@Karin:
Call SavePicture(Picture:=objPicture, Filename:="E:Z_TestBild1.png")
mit deinem Code, wird übrigens kein PNG-File gespeichert, sondern ein BMP, mit der Endung .png.
stdole.SavePicture kann kein PNG speichern. PNG ist zwar auch ein Bitmap, aber eben kein BMP.
Außer du hast nur vergessen, das Modul mit hochzuladen, in der du SavePicture-Methode neu programmiert hast. *tongue.gif*

 

Irgendwie ist mein Beitrag von gestern nicht gespeichert worden - ich hatte geschrieben, dass du die Gitternetzlinien einblenden und auf Farbe Schwarz setzen musst, dann wird ein Rahmen um alle Zellen dargestellt - ändere dazu den Code wie folgt:

Code:

 

Blöderweise bedeutet eine Farbe bei den Gitternetzlinien, dass diese gestrichelt dargestellt wird. Der automatische "Farbe" (Optionen > erweitert) ist grau und ungestrichelt. Kann man die auch linienhaft darstellen?


Übrigens, statt:

Code:

kann man auch Selection.Copy verwenden. Dann können Diagramme und Zellenbereiche in einer Prozedur exportiert werden. Oder spricht etwas wichtiges für Selection.CopyPicture... ?

 

Die Gitternetzlinien werden doch vom Code eingeblendet und Farbe schwarz zugewiesen - anschließend zurückgesetzt.

Ich hatte bereits gefragt (mein Beitrag 06.04.2019 18:31) und keine Antwort erhalten: sollen die Diagramme GEMEINSAM mit dem Tabellenausschnitt kopiert werden oder meinst du SOWOHL Tabellenasschnitte ALS AUCH Diagramme (unabhängig voneiander)? Diagramme müssen nicht kopiert und dann in ein Diagramm eignefügt werden - das geht ganz einfach über Diagramm-Export.

 

Ja, die werden voneinander getrennt exportiert - nacheinander. Die Methode mit Selection.Copy scheint ja zu funktionieren. Das ist also alles wunderbar.

Bzgl. der Gitternetzlinien. Ja, die werden auch schwarz, nur eben gepunktet.

test.bmp

Das passiert wenn Gitternetzlinien eingeblendet und die Farbe auf schwarz (per VBA) gesetzt wird (2010er Version). Du kannst ja mal manuell unter Optionen > erweitert auf schwarz setzen. Da passiert das Gleiche.

 

Wie ich schon geschrieben hatte: Diagramme lassen sich komplett anders exportieren ohne den gesamten Umweg über API.

 

Ich frische das Thema mal auf, da ich noch keine Lösung gefunden habe.


@Beverly: Im Moment funktioniert ja dein Vorschlag sowohl für Tabelle als auch für Diagramm. Es möchte ja auch beides exportieren.

Was mir noch nicht so gut gefällt ist, dass der linke und obere Rand bei Tabellen nicht mit schwarzen durchgezogenen sondern mit gepunkteten Linien angezeigt wird. Da fällt mir leider nicht ein, wie ich dies ändern kann.

 

Hallo,

Karin hat dir jetzt schon mehrfach gesagt, dass du die linke und obere Rahmenlinie fett machen sollst, dann wird sie auch mit kopiert.
Warum probierst du das nicht einfach mal aus ? Bei meinem 2016 geht das so ... eventuell auch in 2010.

Bei "Weitere Rahmenlinien..." ist das die zweiten von unten auf der rechten Seite.

Kannst du dir aufzeichnen ... das zurückstellen steht schon oben, im letzten Code.

Aber beachte bitte:
Call SavePicture(Picture:=objPicture, Filename:="E:\Z_TestBild1.png")
mit diesem Code, wird übrigens kein PNG-File gespeichert, sondern ein BMP, mit der Endung .png.
stdole.SavePicture kann kein PNG speichern. PNG ist zwar auch ein Bitmap, aber eben kein BMP.

Ist jetzt das letzte Mal, dass ich das schreibe ... es sollte jetzt eigentlich jeder begriffen haben.
Um ein "echtes" PNG zu speichern, musst du über den Chart.Export gehen, die Besonderheit hab ich oben schon beschrieben, wobei die Qualität wieder recht miss ist, oder du machst es über API.
Oder aber, du gehst über WORD ... den Ausschnitt mit CopyPicture in die Zwischenablage und dann in WORD einfügen ... das InlineShape mit der rechten Maustaste klicken und "Als Grafik speichern..."
Du kannst dir natürlich auch ein AddIn erstellen, das genau das in Excel macht, wie ich das gemacht habe.

 

\@Flotter Feger,

nein Karin hatte zwar von Rahmenlinien gesprochen aber noch nicht von fetten Rahmenlinien gesagt, aber danke, das war die Lösung. Zumindest würde mir dieser Post nicht angezeigt.
Ich sage es nun auch zum letzten Mal (vielleicht werden entsprechende Zeilen meines letzten Posts dir auch nicht angezeigt). Der Export an sich stellt kein Problem dar. Ich exportiere auch gar nicht als png oder bmp sondern als jpg. *Smilie

Ich stelle jetzt mal eine Hypothese auf: Die Ursache, dass hier in diesem Forum ständig rumgezickt wird, ist, dass das Forum Beiträge oder Zeilen aus Beiträgen verschlingt. Deshalb versteht hier niemand niemanden und man erklärt Fragenden dieselbe Sache mehrmals.

Vielen Dank für eure Unterstützung!

 

Hallo nochmal,

gut ... das mit dem Rahmen, war mein Fehler. Karin hat dir vorgeschlagen das Grid schwarz und fett zu machen ... da hätte ich mir den Code wohl mal besser anschauen sollen. Btw ... das kann sowieso nicht funktionieren ...

Aber, dass du JPG speichern willst, hast du erst jetzt geschrieben. In #5 steht nämlich ...

Das hatte ich noch im Hinterkopf ... etwas anderes habe ich dann nicht mehr gelesen, oder überlesen. In sämtlichen Codes von dir und von Karin ist auch immer von "PNG" die Rede ... egal.

Wenn es jetzt klappt, bin ich froh, geholfen zu haben.

PS:
die Hinweise auf das letztmalige, waren eigentlich nicht wirklich für dich bestimmt ... überleg mal, für wen die wohl waren ... genau. Die betreffende Person überliest gerne Hinweise, die nicht in den Kram passen.