[Microsoft 365] Excel -Inhalt der Zwischenablage

[Thomas Barghahn]

Hallo zusammen,

wiedereinmal plagt mich ein kleines Problem unter Excel, zu welchem ich
keine Lösung finde - ist nicht schlimm! ;-)

Gegeben ist bspw. der Bereich "A1:C2" mit beliebigen Inhalt. Jener
Bereich wird nun markiert und anschließend in die Zwischenablage
kopiert.
Nimmt man nun ein beliebiges "Malprogramm (z.B. Paint 3D)", so kann man
die kopierten Daten dort mittels "CTRL-V" als *Bild* einfügen und
/DIESES/ dann auch speichern.

Funktioniert /DAS SPEICHERN (Sichern)/ der Zwischenablage *als Bild*
auch mit VBA?

Vielen Dank(!) und ...

Freundliche Grüße
Thomas Barghahn 😷
--
+++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++ +++
"Was ist mit deiner süßen kleinen Freundin, der Mathematikerin?" – "Die
habe ich verlassen. Ich rufe sie neulich an – da erzählt sie, sie liege
im Bett und plage sich mit drei Unbekannten rum ...“

[Claus Busch]

Hallo Thomas,

Am Sun, 14 Feb 2021 20:59:51 +0100 schrieb Thomas Barghahn:

> Funktioniert /DAS SPEICHERN (Sichern)/ der Zwischenablage *als Bild*
> auch mit VBA?

du kannst deinen Bereich als Bild kopieren und dann z.B. in G7 als Bild
einfügen:

Sub Kopieren()

With ActiveSheet
.Range("A1:C2").CopyPicture _
appearance:=xlScreen, Format:=xlPicture
.Paste .Range("G7")
End With
End Sub

Wenn du den Bereich als Bild exportieren möchtest, probiere folgenden
Code (Speicherpfad und -Name anpassen):

Sub Exportieren()

Const strPath = "C:\Users\claus\Desktop\myRange.gif"

Worksheets.Add after:=Sheets(Sheets.Count)
With Charts.Add
.SetSourceData Source:=Sheets(Sheets.Count).Range("G25")
.Location where:=xlLocationAsObject, Name:=Sheets(Sheets.Count).Name
End With

Sheets("Tabelle1").Range("A1:C2").CopyPicture _
appearance:=xlScreen, Format:=xlPicture

With ActiveSheet
.ChartObjects(1).Chart.Paste
.ChartObjects(1).Chart.Export strPath
End With

Application.DisplayAlerts = False
Sheets(Sheets.Count).Delete
Application.DisplayAlerts = True
End Sub


Mit freundlichen Grüßen
Claus
--
Windows10
Microsoft 365 for business

[Thomas Barghahn]

*Claus Busch* meinte:

> Am Sun, 14 Feb 2021 20:59:51 +0100 schrieb Thomas Barghahn:

>> Funktioniert /DAS SPEICHERN (Sichern)/ der Zwischenablage *als Bild*
>> auch mit VBA?

> du kannst deinen Bereich als Bild kopieren und dann z.B. in G7 als Bild
> einfügen:

Ich bin total begeistert! :-))

> Sub Kopieren()

> With ActiveSheet
> .Range("A1:C2").CopyPicture _
> appearance:=xlScreen, Format:=xlPicture
> .Paste .Range("G7")

^^^^^^^^^^^^^^^^^^^
Eine solche "Schreibweise" kannte ich noch nicht(!), was mich zunächst
"stolpern" lies. Nun ja, was es nicht so alles an "schicken Dingen"
gibt. ;-)

> Wenn du den Bereich als Bild exportieren möchtest, probiere folgenden
> Code (Speicherpfad und -Name anpassen):

> Sub Exportieren()

> Const strPath = "C:\Users\claus\Desktop\myRange.gif"

> Worksheets.Add after:=Sheets(Sheets.Count)
> With Charts.Add
> .SetSourceData Source:=Sheets(Sheets.Count).Range("G25")
> .Location where:=xlLocationAsObject, Name:=Sheets(Sheets.Count).Name
> End With

> Sheets("Tabelle1").Range("A1:C2").CopyPicture _
> appearance:=xlScreen, Format:=xlPicture

> With ActiveSheet
> .ChartObjects(1).Chart.Paste
> .ChartObjects(1).Chart.Export strPath
> End With

> Application.DisplayAlerts = False
> Sheets(Sheets.Count).Delete
> Application.DisplayAlerts = True
> End Sub

*ALLES PERFEKT*! ;-))

Vielen herzlichen Dank(!) und ...