Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Bild einfügen und löschen mit Button

Betrifft: Bild einfügen und löschen mit Button von: phlp
Geschrieben am: 22.03.2016 16:27:25

Moin zusammen,

ich füge in einem Formular über einen Button ein Bild in eine bestimmte Zelle (A10) ein. Vorher wird noch geprüft ob sich bereits ein Bild in der entsprechenden Zelle befindet. Wenn ja, wird es gelöscht. Das funktioniert einwandfrei.

Jetzt habe ich aber das Problem, dass manchmal mehrere Zeilen (Zeilen 5-9) in meinem Formular ausgeblendet werden. Und wenn ich dann wieder auf meinen Button klicke um ein Bild einzufügen wird das alte nicht mehr gelöscht...
Jemand ne Idee woran das liegen könnte?

Hier noch der Code um das Bild einzufügen:

Private Sub CommandButton1_Click()

    Dim myShape As Shape
    For Each myShape In ActiveSheet.Shapes
    
        If myShape.Type = msoPicture Then
            If Not Application.Intersect(myShape.OLEFormat.Object.TopLeftCell, _
            Range("A10")) Is Nothing Then myShape.Delete
        End If
    Next
        Range("A10").Select
        Application.Dialogs(xlDialogInsertPicture).Show
    
        Selection.ShapeRange.ZOrder msoSendToBack
        Selection.ShapeRange.LockAspectRatio = msoTrue
        Selection.ShapeRange.Width = 280
        Selection.ShapeRange.Height = 210
        Selection.Locked = False
    
End Sub

  

Betrifft: AW: Bild einfügen und löschen mit Button von: Nepumuk
Geschrieben am: 22.03.2016 16:38:34

Hallo,

hast du nur das eine Bild in der Tabelle?

Gruß
Nepumuk


  

Betrifft: AW: Bild einfügen und löschen mit Button von: phlp
Geschrieben am: 22.03.2016 18:21:07

Nein, es befinden sich mehrere Bilder in der Tabelle.


  

Betrifft: AW: Bild einfügen und löschen mit Button von: Nepumuk
Geschrieben am: 22.03.2016 19:14:45

Hallo,

ist es das einzige Bild in Spalte A ?

Gruß
Nepumuk


  

Betrifft: AW: Bild einfügen und löschen mit Button von: phlp
Geschrieben am: 22.03.2016 19:38:44

Nein, auch das ist leider nicht der Fall!


  

Betrifft: AW: Bild einfügen und löschen mit Button von: Nepumuk
Geschrieben am: 22.03.2016 20:20:44

Hallo,

teste mal:

Private Sub CommandButton1_Click()
    
    Const PICTURE_NAME = "Temp"
    
    Dim myShape As Shape
    
    For Each myShape In ActiveSheet.Shapes
        
        If myShape.Name = PICTURE_NAME Then
            myShape.Delete
            Exit For
        End If
    Next
    
    Range("A10").Select
    
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        
        With Selection
            .ShapeRange.ZOrder msoSendToBack
            .ShapeRange.LockAspectRatio = msoTrue
            .ShapeRange.Width = 280
            .ShapeRange.Height = 210
            .Locked = False
            .Name = PICTURE_NAME
        End With
    End If
End Sub

Du musst das Bild nur einmal manuell löschen.

Gruß
Nepumuk


  

Betrifft: AW: Bild einfügen und löschen mit Button von: phlp
Geschrieben am: 23.03.2016 08:54:40

Hallo,

leider werden so auch andere Bilder mitgelöscht.

Ich habe mehrere von diesen Buttons über die ein Bild eingefügt wird. Und wenn ich es nach deinem Vorschlag mache, werden Bilder, die in Zellen weiter oben oder weiter unten eingefügt wurden, gleich gelöscht.


  

Betrifft: AW: Bild einfügen und löschen mit Button von: phlp
Geschrieben am: 23.03.2016 09:44:14

Kommando zurück! :D
Es funktioniert doch einwandfrei. Ich hatte grad jedem Button bzw jedem Bild den Namen "Temp" zugewiesen.

Vielen Dank für deine Hilfe!!


 

Beiträge aus den Excel-Beispielen zum Thema "Bild einfügen und löschen mit Button"