Cambiar nombre o número progresivo de imágenes de formas

[A.Maurizio]

Hola a todos, mi nombre es Maurizio
Y mi problema es este:
En una hoja de Excel usando el código vba Extraiga los enlaces que están estrechamente vinculados a las imágenes para el sitio de pronóstico del tiempo (Wearther); Y hasta ahora todo bien.

Estos enlaces, de acuerdo con mi testamento, se insertan en la columna (A30: A44). Además, para decir la verdad, no usaré solo Cinco.

En la fila (A5: F5) Se extraen las imágenes reales tomadas de este sitio.

Por lo tanto, mi pregunta es: podría crear una especie de cambio de tamaño tanto de las celdas como de (Formas) para poder adaptar todo en igual medida.

(P.S) Creé una función que me funciona bien siempre que cambies el número progresivo de nuevas formas a mono en cada caso.
En mi opinión, diríamos: la posibilidad de crear una Solta de reinicio de las nuevas formas, para que en cada búsqueda el sistema pueda reconocer las formas y modificarlas de vez en cuando.
Gracias por toda la ayuda que me pueden brindar. Saludos de A. Maurizio

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

Hi everyone, my name is Maurizio
And my problem is this:
On an Excel sheet using the vba code Extract links that are closely linked to images for the weather forecast site (Wearther); And so far so good.

These Links By my Will, are inserted in the column (A30: A44) Also to tell the truth I will not use only Five.

In the Row (A5: F5) The actual images taken from this site are extracted.

Therefore my question is: It could create a sort of resizing of both the cells and the (Shapes) in order to be able to adapt everything in equal measure.

(P.S) I created a function that works well for me as long as you change the progressive number of new shapes to mono in each case.
Pe here we would go in my opinion: The possibility of creating a Solta of Reset of the new shapes, so that at each search the shapes can be recognized by the system and modified from time to time.
Thanks for all the help you can give me about. Greetings from A. Maurizio

Meteo da Modificare 2.xlsm

[Antoni]

Prueba el adjunto.

Meteo da Modificare 3.xlsm

[A.Maurizio]

Gracias Antoni Beautiful tu proyecto
Es una pena que no pueda insertar claves adicionales para decir, por ejemplo, comenzar a escanear o el clima; Y elimina los símbolos para una nueva búsqueda.
Pero por el momento, está bien!
(p.S) Tal vez intentaré insertar dos botones y luego del código les pido que permanezcan en su lugar con la ayuda de los cofdici como:
(Sheet1.Shapes ("Oval 1"). Altura
Sheet1.Shapes ("Oval 1"). Izquierda
Sheet1.Shapes ("Oval 1"). Arriba
Sheet1.Shapes ("Oval 1"). Ancho)

Porque para empezar todo probé el método:
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Llamar a GetWheatherSub (myURL)
End Sub

Por aquí solo me faltaría el método de cancelación de los interesados.
De todos modos, muchas gracias por su apoyo; Y lamento la demora en responder a esta publicación tuya, pero estoy muy ocupado con mi trabajo.
Gracias Infinito y que tenga un buen día para todos ustedes en el Foro.

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

Thanks Antoni Beautiful your Project
Just a pity that I can't insert additional keys to say for example start scanning or weather; And eliminates symbols for a new search.
But for the moment, that's okay!
(p.S) Maybe I will try to insert two buttons and then from the code I ask them to stay in place with the help of the cofdici of the type:
(Sheet1.Shapes ("Oval 1"). Height
Sheet1.Shapes ("Oval 1"). Left
Sheet1.Shapes ("Oval 1"). Top
Sheet1.Shapes ("Oval 1"). Width)

Because to start it all I tried the method:
Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancel As Boolean)
Call GetWheatherSub (myURL)
End Sub

for here I would miss only the method of cancellation of the interested parties.
Anyway, thank you very much for your support; And I'm sorry for the delay in answering this post of yours but I'm very busy with my work.
Thanks Infinite and have a nice day to all of you at the Forum
 

[A.Maurizio]

Hola, Antoni, escribo solo porque esta vez, en lugar de preguntarte algo, me gustaría ofrecerte mi trabajo de pronóstico del tiempo terminado en todas sus partes.
Claramente, desde que vivo en Italia, he seleccionado el nombre y mi región de la ciudad (Turín-Clima) Piamonte; Pero puedes ver más.
No fue fácil hacer todo esto porque como un sitio tiene sus reglas duras y rápidas, pero como puede ver con su ayuda y buena voluntad por mi parte, configuré lo que quería lograr desde el principio.
Espero que sea de su rango y de todos los participantes de este foro.
Saludos sinceros de A.Maurizio.

Este es el enlace para descargar todo: https://app.box.com/s/7vngvpcsxz8v8oha4zualf8yo59rvkqx

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

Hi Antoni I write only because this time Instead of asking you something: I would like to offer you my Weather Forecast Work Finished in all its parts.
Clearly, since I live in Italy, I have selected the name and my City Region (Turin-Weather) Piedmont; But you can see more.
It was not easy to do all this because as a site it has its hard and fast rules but as you see with your help and good will on my part I set up what I wanted to accomplish from the beginning.
I hope that it is of your rank and of all the participants of this forum.
Sincere Greetings from A.Maurizio

This is the link to download everything: https://app.box.com/s/7vngvpcsxz8v8oha4zualf8yo59rvkqx