Excel- Zellen in Userform abbilden

25/03/2014 - 19:48 von Hans Alborg | Report spam
Hi,

[Excel 2007]
Betr.: Excel- Zellen in Userform abbilden

Dieses Beispiel im Netz

http://www.excel-answers.com/micros...ilden.aspx

zeigt die Lösung. Der Weg ist es, einen Screenshot des Zellbereichs
auszulösen, in die Zwischenablage zu bringen, auf die Festplatte zu
speichern, und wieder zu laden, diesmal auf das Imagefeld der Userform. Dann
noch Löschen des Bilds auf der Festplatte.

Das zeigt wieder mal, wie erfinderisch die VBA- Freaks sind.
Ich wollts dann auch so machen und gleich unter "C" abspeichern und wurde
erstmal ausgebremst: "Zugriff verweigert".
Hm.
Dann, im Langsamdurchlauf, fiel mir auf, daß das Bild vorher bereits auf
meinem Blatt erscheint!

Jetzt lasse ich es dabei. Wozu denn eine Userform, nur um die Zellen eines
anderen Blatts zu sehen?

Mein Code ist jetzt echt kurz:
' -
Sub Zell_Area_zeigen()
Dim shLu As Worksheet
Dim picBild As Picture
Dim Zell_Lupen_Bereich As Range

Set shLu = Sheets("Lupenteile")
Set Zell_Lupen_Bereich = shLu.Range("A1:T25") ' Testbereich 01

Zell_Lupen_Bereich.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set picBild = ActiveSheet.Pictures.Paste
End Sub
' --

Die Grafik làßt sich mit der Maus zur Seite schieben, ist in dieser Zeit
transparent und mit <ENTF> verschwindet sie wieder (ich hab <ENTF> auf einer
Maustaste).
Der starre Range- Bereich ist erstmal für Testzwecke. Er soll spàter davon
abhàngen, welche Zelle bzw. welchen Zellbereich ich anklicke.

Das Problem das noch vor mir liegt: das Bild soll neben der "Klickzelle"
erscheinen. Rechts oder links, wo der Platz halt reicht.

So, das wollte ich mal loswerden. Wenig Code, Ergebnis ok, kein Kampf mit
der Festplatte!

Ciao,
Hans
 

Lesen sie die antworten

#1 Claus Busch
25/03/2014 - 20:13 | Warnen spam
Hallo Hans,

Am Tue, 25 Mar 2014 19:48:22 +0100 schrieb Hans Alborg:

Ich wollts dann auch so machen und gleich unter "C" abspeichern und wurde
erstmal ausgebremst: "Zugriff verweigert".



du kannst auch unter C abspeichern, wenn du deinen Bereich mit dem
Snipping-Tool "ausschneidest".
Das Teil findest du unter Start => Alle Programme => Zubehör


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Prodessional

Ähnliche fragen