Ver originales (Francés)

Copiar imagen de un userform a una celda

Resuelto
Bob0876 -  
Hola,

me gustaría copiar una imagen insertada en un userform a una celda, pero no sé cómo hacerlo?

Gracias,

4 respuestas

  1.  f894009
    Hola, Este fragmento funciona sin problema 
    Sub test()
 ww = "userform2"

 Set b = VBA.UserForms.Add(ww)

 If b.Image1.Tag <> "" Then

 Workbooks("Formulaire.xlsm").Worksheets("Accueil").Pictures.Insert(b.Image1.Tag).Select

 Selection.Top = Range("k1").Top
 Selection.Left = Range("k1").Left

 End If

 If b.Image2.Tag <> "" Then

 Workbooks("Formulaire.xlsm").Worksheets("ajdonne").Pictures.Insert(b.Image2.Tag).Select

 Selection.Top = Range("k25").Top
 Selection.Left = Range("k25").Left

 End If
End Sub
    Veuillez détailler un peu plus ce qui ne va pas !!!!!!!!!!!!!!!!!!!! A+
    0
    1. Bob0876 Autor
      ww es el nombre del userform existente (verificado)
      0
      1. Bob0876 Autor
        Gracias, pero a pesar de tu ayuda no entiendo mejor cómo sectionar la imagen del userform y pegarla en una celda.
        0