HERBERS Excel-Forum - die Beispiele

Thema: Bild in zweites Blatt an gleiche Position kopieren

Home

Gruppe

Grafik

Problem

Ein Bild soll in Tabelle 2 an gleiche Position kopiert werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub CopyPicture()
   Dim pct As Picture
   With ActiveSheet.Pictures("Lxmb")
      .Copy
      Worksheets(2).Paste
      Set pct = Worksheets(2).Pictures(1)
      pct.Left = .Left
      pct.Top = .Top
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Grafik und Kopieren

Finden und Kopieren Nur Text in die Zwischenablage kopieren
Kopieren Spalte aus AutofilterTabelle Daten in "Excel-Datenbank" kopieren
Spalten kopieren Komplettes Excel Sheet kopieren mit Formaten
Tab. kopieren & neue Daten in Datenbank einfuegen Inhalte von einer PDF suchen und den Text kopieren
Datensatz kopieren+einfügen - Code verinfachen VBA- aus anderer Mappe kopieren)mit Kriterium)
Datum abfragen und Werte kopieren sverweis klappt nicht ( bei runter kopieren)
Bestimmten Bereich anhand Zeilenabgabe kopieren VBA Suchen, kopieren, einfügen
VBA bestimmte Spalten kopieren Namen der Tabellen kopieren
Finden und kopieren Array in Tabelle kopieren, Verlust von Format
VBA: Kopieren nicht vorhandener Werte Zeile automatisch hoch kopieren
Spalte in andere Dateien kopieren + zurückkopieren kopieren von Zeilen in ein neues Sheet
VBA - Neues Tabellenblatt soll altes kopieren Zeilen in anderes Tabellenblatt kopieren
Daten kopieren mit Bedingung Jahresgrafik
Ordner mit Unterordnern/Dateien kopieren Gefilterte Tabelle kopieren
Daten aus worksheets kopieren Grafik - Linie nach unten, Kriterien links
Kopieren wenn Daten aus Excel in andere Software kopieren
Kopieren über 2 Dateien? Formelspalten in viele Tabellenblätter kopieren
Grafik auf Position bringen 2 Dateien Vergleichen und Spalten kopieren?
2 Dateien Vergleichen und Spalten kopieren? Zeile einfügen, Daten kopieren und transponieren
Probleme beim Kopieren Word Tabelle nach Excel Sheet aus File kopieren und in zig andere einfügen
Makro Zelleninhalte kopieren und einfügen String mit Buchstaben & Zahlen suchen und kopieren
Viele Grafiken mit gleicher Größe einfügen Excel Grafiken nur schwarz/weiss
Daten zwischen Arbeitsblättern per Makro? kopieren Format mit VBA kopieren
Makro - Selektieren Kopieren und Einfügen Automatisches Kopieren von Blättern
kopieren, sheet benennen, automatisch speichern