HERBERS Excel-Forum - das Archiv

Thema: Bild kopieren

Bild kopieren
Thomas Hein
Hallo zusammen,
ich möchte folgendes machen:
in A1 steht ein "Text"
wenn ich auf "Text" klicke müsste eine Bilddatei die sich in B1 befindet in C1 erscheinen / kopiert werden
gibt es da eine Lösung
Danke
AW: Bild kopieren
MCO
Moin!

Ich hab es mal genauso umgesetzt, wie du geschrieben hast:

Folgendes ins Worksheet-Modul: 


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Column = 1 And Target.Value = "Text" Then

        bild_kopieren

    End If

End Sub


Das in ein normales Modul: 
Sub bild_kopieren()



    For Each shp In ActiveSheet.Shapes

        'Debug.Print shp.TopLeftCell.Address(0, 0)

        If shp.TopLeftCell.Address(0, 0) = ActiveCell.Offset(0, 1).Address(0, 0) Then

            shp.Copy

            ActiveCell.Offset(0, 2).Select

            ActiveSheet.Paste

        End If

    Next shp

End Sub


Gruß, MCO
AW: Bild kopieren
Thomas Hein
Danke, aber leider bin ich in VBA nicht ganz so gut, muß ich da noch Angaben ergänzen ?
AW: Bild kopieren
MCO
Naja, wenn dein Text nicht "Text" sondern "Uwe" heißt, dann musst du das im Code anpassen.
Ansonsten, so wie ich es geschrieben hab...

Gruß, MCO
AW: Bild kopieren
Thomas Hein
sorry aber es steht doch nirgends ein Verweis A1 / B1 / C1
aber trotzdem Danke
AW: Bild kopieren
MCO
Den brauchst du auch nicht.

Der Code läuft bei klicken in Spalte 1 (target.column = 1), also "A", die Zeile ist dabei unabhängig.

Daraufhin werden alle bilder durchgegangen und geprüft:
Steht das bild in derselben zeile in spalte "B" (offset(0,1)) dann wird es kopiert nach Spalte "C" derselben Zeile (offset (0,2))

Damit sind die Verweise alle relativ und nicht absolut.

Gruß, MCO
AW: Bild kopieren
Thomas Hein
Danke
jetzt habe ich es kapiert.
ABER ich muss auf A1 "Text" und dann auf B1 (das Bild) klicken daß dann nach C1 (das Bild) kopiert wird ?
Verweise absolut wäre besser, da ich viele Bilder an viele unterschiedliche Zellen kopieren müsste
VG Thomes
AW: Bild kopieren
Volti
Hallo,
Ein Tipp: Da fehlt m.E. auch noch eine Vorhanden-Prüfung oder Löschen, sonst werden immer wieder weitere Bilder kopiert, wenn man mehrfach klickt.
Einfach zu bewerkstelligen wenn man das kopierte Bild eindeutig umbenennt, z.B. so wie die Zelle heißt.
Gruß KH