VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bild in zweites Blatt an gleiche Position kopieren

Gruppe

Grafik

Bereich

Kopieren

Thema

Bild in zweites Blatt an gleiche Position kopieren

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