Grafiken kopieren

[Marcus Gonschior]

Ich habe noch eine an meinen letzten Beitrag anschliessende Frage:

Ich habe mit copy/paste gearbeitet und Zellbereiche kopiert.

aufgrund von zeichnerischer Ungenauigkeit habe Ich das Alles über Rahmenlinien angelegt und
die Zellen verkleinert.

Es gibt aber ein paar Dinge, wie Ich ein icon(jpg) oder auch einen "übermalten"Bereich von Excel
kopieren möchte.

das funktioniert auch.

will Ich jedoch(eine Art Klick-Bildschirmlupe, die in einem "Ausschaufenster" etwas zeigt) eine andere Grafik überblenden,
muss Ich ja das vorher kopierte "herauslöschen", soweit es nicht "überschrieben" wird.

bei den "Rahmengrafiken" war das kein Problem, das gehört ja direkt zu den Zelleigenschaften, bei Text auch ok.

bei einer echten gemalten Grafik oder einem eingefügten Bild passiert etwas Anderes:
die neue "echte" Grafik wird auch darübergelegt, jedoch bleibt der unberührte "Rest" der vorherigen Grafik einfach da stehen.

viell gibt es sowas wie:
"Gezeichnetes oder Eingefügtes" in entsprechendem Bereich auf "null/default".
so daß Ich danach dann die Grafik über den ge"clear" - ten Bereich legen könnte.
und danach wieder "An".

oder eben eine andere Lösung.

[BoskoBiati]

Hallo,

Ich habe noch eine an meinen letzten Beitrag anschliessende Frage

Da Du nicht der einzige Teilnehmer an diesem Forum bist, wäre es schon schön, wenn man wüsste, welchen Beitrag Du meinst.

[GMG-CC]

Moin,
neben Edgars Anmerkung ergänzend noch mein Hinweis: Das geht (wahrscheinlich) nur über VBA zu lösen. Als Auslöser stelle ich mir einen Doppelklick auf das Objekt vor. Zeichne doch mal das Ganze mit dem Makrorecorder auf, dann bist du schon ein ganzes Stück weiter. Wir Helfer übrigens auch.

[Marcus Gonschior]

Moin,
neben Edgars Anmerkung ergänzend noch mein Hinweis: Das geht (wahrscheinlich) nur über VBA zu lösen. Als Auslöser stelle ich mir einen Doppelklick auf das Objekt vor. Zeichne doch mal das Ganze mit dem Makrorecorder auf, dann bist du schon ein ganzes Stück weiter. Wir Helfer übrigens auch.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'MsgBox Target.Address
  test = Target.Address
  'MsgBox test
  'dieses kommentiere Ich ein und aus, um schneller den Zellindex zu finden.
 
 
 
  '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 
 
 
 
  If (test = "$Z$15") Then
     'MsgBox Target.Address
     'ok
     
     'Tabelle3.Range("BH1:BM7").Value = Tabelle3.Range("P58:V64").Value
     'Tabelle3.Cells(1, 1) = "AA"
     
     Range("P58:Y64").Select
     Selection.Copy
     
     Range("BH1").Select
     ActiveSheet.Paste
     
     
     
     'Range("P58:V64").Select
     'Selection.Copy
     'ActiveSheet.Paste
     
     'Range("Z15").
     
     
     'ActiveSheet.Paste
     
     Application.CutCopyMode = False
     Application.DisplayAlerts = False
     'Umrandung weg
     
     'zeilenindex = ActiveCell.Row
     'spaltenindex = ActiveCell.Column
     'ActiveCell.Row = "15"
     'ActiveCell.Column = Z
     'ActiveCell.Address(Z, 15)
     
     'ActiveSheet.ChartObjects(1).Top = Range("C7").Top
     'ActiveSheet.ChartObjects(1).Left = Range("C7").Left
     
     'ActiveSheet.Top = Range("Z15").Top
     'ActiveSheet.Left = Range("Z15").Left
     
     Range("Z14").Activate
     
     'dieses bringt die Zellposition wieder in die Nähe ohne Rückkopplung.
     
     
  End If
 
 
End Sub


' Problem ist:
' mit Excel Gezeichnetes oder bitmaps(eingefügt) "bleiben" teilw. stehen, auch wenn Ich was Neues "darüber - paste".

[Rabe]

Hi Marcus, 

hier dein Code etwas gekürzt:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  'MsgBox Target.Address
  test = Target.Address
  'MsgBox test
  'dieses kommentiere Ich ein und aus, um schneller den Zellindex zu finden.
 
  '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
  If (test = "$Z$15") Then
     'MsgBox Target.Address
     'ok
     
     'Tabelle3.Range("BH1:BM7").Value = Tabelle3.Range("P58:V64").Value
     'Tabelle3.Cells(1, 1) = "AA"
     
     Range("P58:Y64").Copy Range("BH1")
     
     'Range("P58:V64").Copy Range("P58:V64")
     'Range("P58:V64").Copy Range("Z15")
     
     Application.CutCopyMode = False
     Application.DisplayAlerts = False
     'Umrandung weg
     
     'zeilenindex = ActiveCell.Row
     'spaltenindex = ActiveCell.Column
     'ActiveCell.Row = "15"
     'ActiveCell.Column = Z
     'ActiveCell.Address(Z, 15)
     
     'ActiveSheet.ChartObjects(1).Top = Range("C7").Top
     'ActiveSheet.ChartObjects(1).Left = Range("C7").Left
     
     'ActiveSheet.Top = Range("Z15").Top
     'ActiveSheet.Left = Range("Z15").Left
     
     Range("Z14").Activate
     'dieses bringt die Zellposition wieder in die Nähe ohne Rückkopplung.
  End If
End Sub

Problem ist:
mit Excel Gezeichnetes oder bitmaps(eingefügt) "bleiben" teilw. stehen, auch wenn Ich was Neues "darüber - paste".

[Marcus Gonschior]

hier dein Code etwas gekürzt:

-----------------------------------------------------------------neu

Ich konnte mein Problem lösen(die Sache ist so wohl zu komplex),
Ich habe eine Art "Kurzschlusslösung" angestrebt:

Wen es interessiert(das Problem war ja:
sogenanntes "Überschreiben" mit copy/paste funktioniert nicht bei Gezeichnetem oder eingefügten bitmaps.

Es ist aber Folgendes möglich.

>> man benutzt ein einfaches weisses Rechteckfeld zum Überdecken wie eine Art Radiergummi in der background-color.
Wenn man danach die neue Grafik darüberlegt, ist es optisch ok.

die eigentliche Lösung über die sogenannten "shapes" müsste ja dann jedes Objekt einzeln abgreifen ...
und Danke.
(das Einzige Manko: die Gitternetzlinien sind dann natürlich "drunter", aber man kann wiederum, wenn erwünscht, diese mit "Nachzeichnen" auf die Überdeckfläche)