Copie imágenes de la hoja e insértelas en un formulario de usuario.
publicado
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
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