XLS: Bilder Größe im Image fixieren?

Computer: Software & Programmierung Office Software
1

Hi,

folgender VBA-Code soll ein Bild erstellen und in einen Image wiedergeben. Die Bilder sind von Diagrammen in einen extra Sheet. Weil es soviele sind, verkleinere ich das Diagramm-Sheet, um die Übersicht zu bewahren. Doch dieses Vergrößern wirkt sich auf die Anzeige des Bildes aus. Das Bild wird kleiner bzw. größer im Image angezeigt, je nachdem, ob ich im Sheet heran- oder herauszoome?

Frage: Ist es möglich die Größe des Bildes unabhängig von meinem Zoomen zu machen?

Danke im Voraus. Grüße

Private Sub UpdateChart()
Set CurrentChart = Sheets(„Diagramme“).ChartObjects(ChartNum).Chart
CurrentChart.Parent.Width = 878
CurrentChart.Parent.Height = 446

’ Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & „temp.gif“
CurrentChart.Export Filename:=Fname, FilterName:=„GIF“

’ Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub

2

folgender VBA-Code soll ein Bild erstellen und in einen Image
wiedergeben. Die Bilder sind von Diagrammen in einen extra
Sheet. Weil es soviele sind, verkleinere ich das
Diagramm-Sheet, um die Übersicht zu bewahren. Doch dieses
Vergrößern wirkt sich auf die Anzeige des Bildes aus. Das Bild
wird kleiner bzw. größer im Image angezeigt, je nachdem, ob
ich im Sheet heran- oder herauszoome?

Frage: Ist es möglich die Größe des Bildes unabhängig von
meinem Zoomen zu machen?

Hallo asdf,

zu deiner Frage, möglich, ich sehe da spontan zwei Möglichkeiten.

Nachfrage1: Welche Excelversion hast du, warum gibst du die nie an obwohl dir das schon gesagt wurde?

Nachfrage2: Wie zoomst du, über Ansicht—Zoom, oder über Vba?

Nichtbeantwortung der Fragen bedeutet, ich halt mich wieder raus.
Bis hin, daß ich zukünftig keinerlei Anfragen von dir beantworte/löse.

Nun mögen manche Mitlesende denken, warum ist Reinhard so schroff drauf, geht es im schlecht, hat er ein Problem.
Nein.in dem Fall nur asdf, es hat Vorgeschichte:
http://www.wer-weiss-was.de/article/6217936
Dort mein Beitrag von 13.12.2010 19:01

Und, ich bin auch nur ein Mensch, ich will jmd. helfen, versuche es, bräuchte dann zu meiner Hilfe mehr Informationen des Anfragers, frage nach, und…
…Nix kommt.

Soll ich 550 mal nachfragen?

Nö, irgendwann habe ich die Schnauze voll.

In diesem Sinne sage ich es knallhart, entweder spielt asdf diesmal mit oder sie ist auf meiner Schwarzen Liste.
Was schön für asdf ist, dann wird sich mich als Antworter nie mehr lesen.

Klingt für fremde Ohren sicher alles knallhart.
Nehmen wir mal ein praktisches Beispiel.
Jmd. kommt in einen Autozubehörladen und sagt, ich hab einen VW und brauch dafür einen neuen Auspuff.
Dann fragt der Verkäufer, welchen VW, habens Sie den Fahrzeugschein dabei, zeigen Sie ihn bitte.
Antwort: Schweigen"
Dann fragt der Verkäufer nochmals das Gleiche oder anderes.
Antwort: Schweigen.

st doch dann völlig normal, daß er nach 1-x Versuchen sagt, Gehen Sie bitte zur Seite, Der Nächste bitte.

Gruß
Reinhard

3

Hi,

Version: 2010
Zoom: Ich drücke die Strg-Taste und bewege meinen Zeigefinger vertikal über meinen Mouse-pad (hat Mulittouchfunktion). Ist wahrscheinlich das Äquivalent, wie wenn ich die STrg-Taste drücke und dabei mit dem Scrollrad an einer Scrollmaus drehe.

Hoffe alle Fragen beantwortet zu haben.

4

XL 2010 Bilder Größe im Image fixieren?

Version: 2010
Zoom: Ich drücke die Strg-Taste und bewege meinen Zeigefinger
vertikal über meinen Mouse-pad (hat Mulittouchfunktion). Ist
wahrscheinlich das Äquivalent, wie wenn ich die STrg-Taste
drücke und dabei mit dem Scrollrad an einer Scrollmaus drehe.
Hoffe alle Fragen beantwortet zu haben.

Hallo asdf,

ja.

Scrollrad oder diese mir unbekannte Multifunktionstaste auszuwerten ist vielleicht mit Aufwand über Vba auszuwerten.

Dazu kommt XL2010. Da ist es nicht mehr so einfach wie bis XL2003 einfach oben in den Symbolleisten ein zusätzliches Symbol einzubauen.
Bei Klick darauf erscheint dann ein selbstgebautes Auswahlfenster, sowie wenn man auf Ansicht—Zoom in alten XL-Verisonen geht.

K.A. wo man das in 2010 findet.

Was aber auch in XL2010 gehen könnte, wenn du sowieso die Strg-Taste kurz halten mußt, kannst du ja dann auf einen Buchstaben (welchen kannste dir aussuschen) drücken und das Auswahlfenster erscheint.

Wenn du dann im Auswahlfenster den neuen Zoomfaktor ausgewählt/eingestellt hast und auf OK klickst startet ein Makro, daß
sich die aktuelle Bildgrößen merkt, das Blatt zoomt, die Bildgrößen anhand des Zoomfaktors neu einstellt.

Ist jetzt nur mein theortischer Plan. Wäre das okay so vorzugehen.

Gruß
Reinhard

5

Ist halt immer lustig mit ihm;
besondes in BWL.

Er müßte nur manchmal etwas systematischer werden.

Wer Makros kann, der kann sicherlich auch die Kostenrechnung
erlernen;
es ist allerdings ein Irrglauben, man brauchte dazu nur eine
x beliebige Formel aus einem x-beliebigen Buch
in eine x-beliebige Excel Tabelle einzutippen.