Copie imágenes de la hoja e insértelas en un formulario de usuario.

[A.Maurizio]

Hola a todos. Mi nombre es Maurizio y mi nuevo problema con la VBA es este:
Yo en una hoja de excel gracias a su ayuda Anterior que es esto:

 

Dim rngTarget As Range

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
    With rngTarget.Parent
       .Pictures.Insert strShpUrl
       .Shapes(.Shapes.Count).Left = rngTarget.Left
       .Shapes(.Shapes.Count).Top = rngTarget.Top
    End With
 End Sub

Private Sub Cmd_Recupera_Immagini_Click()
'On Error Resume Next

For I = 1 To 1
Call GetShapeFromWeb(Foglio1.Range("A10").Value, Foglio1.Range("B20"))

Call GetShapeFromWeb(Foglio1.Range("A11").Value, Foglio1.Range("C20"))

Call GetShapeFromWeb(Foglio1.Range("A12").Value, Foglio1.Range("D20"))

Call GetShapeFromWeb(Foglio1.Range("A13").Value, Foglio1.Range("E20"))

Call GetShapeFromWeb(Foglio1.Range("A14").Value, Foglio1.Range("F20"))

'Call GetShapeFromWeb(Foglio1.Range("A15").Value, UserForm1.Image6.Picture)
Next I
End Sub

Me echaste una mano para extraer imágenes tomadas de un enlace y hasta ahora todo está bien; En que
funciona muy bien
Pero ahora mi nuevo problema requiere que quiera insertar estas imágenes en una forma de usuario que a su vez
contiene cinco fotos mas
Créeme, pensé que era extremadamente simple hacer cosas como esta; Pero mientras trataba de investigar en internet no encontré nada.
Por aquí te pregunto que existe la posibilidad de crear esta cosa.
Es decir: copie las imágenes de la hoja de lava y transfiéralas al formulario de usuario.
O incluso simplemente transferirlos al directorio (C:
Muchas gracias por toda la ayuda que podrán brindarme ahora mismo.
Saludos desde A. Maurizio

################################################################################

Hello everyone My name is Maurizio and my new problem with the VBA is this:
I on an excel sheet thanks to your help Previous that is this:

Dim rngTarget As Range

Sub GetShapeFromWeb(strShpUrl As String, rngTarget As Range)
    With rngTarget.Parent
       .Pictures.Insert strShpUrl
       .Shapes(.Shapes.Count).Left = rngTarget.Left
       .Shapes(.Shapes.Count).Top = rngTarget.Top
    End With
 End Sub

Private Sub Cmd_Recupera_Immagini_Click()
'On Error Resume Next

For I = 1 To 1
Call GetShapeFromWeb(Foglio1.Range("A10").Value, Foglio1.Range("B20"))

Call GetShapeFromWeb(Foglio1.Range("A11").Value, Foglio1.Range("C20"))

Call GetShapeFromWeb(Foglio1.Range("A12").Value, Foglio1.Range("D20"))

Call GetShapeFromWeb(Foglio1.Range("A13").Value, Foglio1.Range("E20"))

Call GetShapeFromWeb(Foglio1.Range("A14").Value, Foglio1.Range("F20"))

'Call GetShapeFromWeb(Foglio1.Range("A15").Value, UserForm1.Image6.Picture)
Next I
End Sub

You gave me a hand to extract images taken from a Link and so far everything is ok; In that
it works great.
But now my new problem requires me to want to insert these images into a userform that in turn
contains five more pictures
Believe me I thought it was extremely simple to do things like this; But while trying to do research on the internet I found nothing.
For here I ask you there is a possibility to create this thing.
That is: Copy the images from the lava sheet and transfer them to the userform.
Or even just transfer them to the directory (C:
Thank you so much for all the help you will be able to give me right now
Greetings from A. Maurizio

 

Recupera Immagine Da Link Su Userform (Salvato automaticamente).xlsm

[Antoni]

Hasta donde yo se, solo es posible cargar un control image desde un archivo y también hasta donde yo se, solo es posible crear un archivo con una imagen en una hoja Excel desde un gráfico.

Revisa el adjunto.

Recupera Immagine Da Link Su Userform II.xlsm

[A.Maurizio]

Hola, Antoni. Estaba a punto de volverme loco con este último proyecto mío, ya que lo intenté y lo intenté de nuevo sin sacar una araña del agujero.
Entonces vienes guapo guapo y resuelve el problema!
¿Qué decir que eres fantástico?
Era justo lo que estaba tratando de hacer, pero sin obtener ningún resultado.
Seguramente este proyecto más que cualquier otro; Lo guardaré cuidadosamente en algún lugar de mi computadora ya que es muy hermoso
Eres maravilloso, pero aún más; Hola y hasta pronto
##################################################

Hi Antoni I was about to go crazy with this last project of mine as I tried and tried again without ever getting a Spider out of the hole.
Then you come handsome Handsome and solve the problem!
What to say you are Fantastico?
It was just what I was trying to do but without getting any results.
Surely this project more than any other; I will keep it carefully somewhere on my computer as it is very beautiful, thank you very much
You are wonderful but you even more so; Hello and see you soon