Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild entferenen

Bild entferenen
25.07.2007 12:06:00
Ernst
Hallo Forum
Ich möchte das Bild in der aktiven Zelle per VBA löschen.
Habe es mit dem Code unten versucht, mache aber etwas falsch.
Bitte um Hilfe.
mfg
Ernst Dunkel
ActiveSheet.Shapes("pic" & ActiveCell.Address(5, 5)).Delete

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild entferenen
25.07.2007 12:12:00
Hajo_Zi
Hallo Ernst,
hat das Bild tatsächlich den Namen "pic$E$5"

AW: Bild entferenen
25.07.2007 13:24:18
Ernst
Hallo Hajo
Nein, hilft Dir der Code unten weiter?
mfg
Ernst Dunkel

Private Sub CommandButton1_Click()
Dim pic As Picture
Worksheets("U-Werte").Unprotect ("")
If img.Tag  "" Then
On Error Resume Next
ActiveSheet.Shapes("pic" & ActiveCell.Address(0, 0)).Delete
On Error GoTo 0
Set pic = ActiveSheet.Pictures.Insert(img.Tag) 'Aus dem "Tag" des Images den Pfad auslesen
With pic
.Name = "pic" & ActiveCell.Address(0, 0)
.Top = ActiveCell.Top + 1
.Left = ActiveCell.Left
End With
Set pic = Nothing
End If
frm_BA.Hide
Worksheets("U-Werte").Protect ("")
End Sub


Anzeige
AW: Bild entferenen
25.07.2007 13:45:00
ransi
HAllo Ernst
Versuche es so:
ActiveSheet.Shapes("pic" & ActiveCell.Address(0, 0)).Delete
ransi

AW: Bild entferenen
25.07.2007 13:53:00
Ernst
Hallo Ransi
Dies hatte ich auch schon versucht mit:

Private Sub CommandButton3_Click() 'Bild löschen
ActiveSheet.Shapes("pic" & ActiveCell.Address(0, 0)).Delete
frm_BA.Hide
End Sub


Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige