VBA-Beispiel 102
mail schreiben
mail schreiben

markierte Zellen als Bild in Excel speichern (Kamera)

Fügt von den markierten Zellen in die aktive Tabelle ein Bild ein. Spätere Änderungen in den Zellen, werden im Bild übernommen (Kamera).
Sub Kamera()

Dim Bild As Picture
Dim Zellbereich As Range

On Error GoTo Hell      'falls "Abbrechen" gedrückt wird
'Zellen markieren (Bildbereich)
Set Zellbereich = Application.InputBox _
  (prompt:="Markieren Sie die Zellen für das Bild", _
   Title:="Bildauswahl", Type:=8)
On Error GoTo 0

'es wurden mehrere Bereiche markiert
If Zellbereich.Areas.Count > 1 Then
  MsgBox "Bitte nur zusammenhängende Zellen markieren!", , "Abbruch"
  Exit Sub
End If

Zellbereich.Copy

Set Bild = ActiveSheet.Pictures.Paste(Link:=True)

Application.CutCopyMode = xlCut
Set Bild = Nothing
Set Zellbereich = Nothing
Exit Sub

Hell:
  MsgBox "", , "Abbruch"
End Sub

Download:   vba101.zip