Ver originales (Francés)

Copiar imagen de un userform a una celda

Resuelto
Bob0876 Mensajes publicados 41 Estado Miembro -  
f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   -
Hola,

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

Gracias,

4 respuestas

  2.
    Bob0876 Mensajes publicados 41 Estado Miembro
     
    Gracias, pero a pesar de tu ayuda no entiendo mejor cómo sectionar la imagen del userform y pegarla en una celda.
    0
  3. Bob0876 Mensajes publicados 41 Estado Miembro
     
    ww es el nombre del userform existente (verificado)
    0
  4. f894009 Mensajes publicados 17417 Fecha de registro   Estado Miembro Última intervención   1 717
     
    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