Afbeelding met opdracht knop invoegen in beveiligd excel blad

[Warme bakkertje]

Private Sub CommandButton1_Click()
On Error Resume Next
ActiveSheet.Shapes("ActiefPicture").Delete
Set sShape = ActiveSheet.Shapes.AddPicture(Application.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg"), _
         msoFalse, msoCTrue, Cells(11, 2).Left + 22, Cells(11, 2).Top, 390, 260)
sShape.Name = "ActiefPicture"
End Sub

Private Sub CommandButton2_Click()
On Error Resume Next
ActiveSheet.Shapes("ActiefPicture2").Delete
Set sShape = ActiveSheet.Shapes.AddPicture(Application.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg"), _
         msoFalse, msoCTrue, Cells(162, 2).Left + 22, Cells(162, 2).Top, 400, 345)
sShape.Name = "ActiefPicture2"
End Sub

Meer code is er niet nodig voor beide knoppen.

 

[JeanPaul28]

Sanderc
In de prachtige verkorte code van Rudi waar ik zelfs nog van kan leren, kan je zien dat er maar 2 zaken zijn veranderd nl "actiefPicture en cells" , hier kan je wijzigingen aanbregen om je plaatje op een ander cel te plaatsen.
Wijzig eens iets en test dat uit , op deze manier ga je er het meest van leren en begrijpen.

 

[huijb]

@Sanderc Onnodige quotes verwijderd. Wanneer je direct reageert op een reactie is het niet nodig om dat bericht te quoten. Onnodig quoten heet dat, hetgeen niet gewenst is.

 

[snb]

of

Private Sub CommandButton1_Click()
  On Error Resume Next

  ActiveSheet.Pictures("ActiefPicture").Delete
  ActiveSheet.Shapes.AddPicture(Application.GetOpenFilename("JPEG-Afbeelding (*.jpg), *.jpg"), 0, -1, Cells(11, 2).Left + 22, Cells(11, 2).Top, 390, 260).Name = "ActiefPicture"
End Sub