Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bild in zweites Blatt an gleiche Position kopieren

Gruppe

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