MacroFacili: Miniature delle province

Una funzione, simile a quella vista per la genrazione del QR Code che consente di inserire la miniatura della provincia in una cella del foglio di calcolo.

In questo caso non ho trovato delle miniature già pronte per come le avrei volute io, così le ho create e le trovate disponibili sul sito di macrofacili.

Il risultato che otterremo è quello dell'immagine qui a lato: inserendo la funzione =ImgProvincia(sigla automobilistica) verrà visualizzata nella cella una miniatura della provincia, all'interno della regione, e ridimensionata alla cella stessa.

Il codice è molto semplice come si può vedere: cancella un'eventuale immagine già inserita a cui viene dato il nome ImgProv_XX, viene ricaricata ed adattata alla cella. Per il l'adattamento dell'immagine alla cella ho usato il codice di questo esempio.

Function ImgProvincia(SiglaAut As String)
  Dim Cella As Range
  Dim ImgProv As Picture

  Set Cella = Application.Caller
  NomeImmagine = "ImgProv_" & Cella.Address(False, False)
  Margine = 2

  'cancella l'immagine precedente
  On Error Resume Next
    ActiveSheet.Pictures(NomeImmagine).Delete
  On Error GoTo 0

  If (SiglaAut <> "") Then
    'link all'immagine su web
    URL = "http://www.macrofacili.it/Pubb/Geo/Prov_" + SiglaAut & ".png"

    'creazione dell'immagine
    Set ImgProv = ActiveSheet.Pictures.Insert(URL)
    ImgProv.Name = NomeImmagine

    'ridimensionamento alla cella
    Adatta_Immagine Cella:=Cella, Immagine:=ImgProv
  End If
  ImgProvincia = ""
End Function

L'esempio completo é scaricabile da questo link: Es404.xlsm (a questo link le info per attivare le macro se risultano bloccate)

Gli esempi contenuti nel sito sono per uso personale, non é consentito l'uso professionale, commerciale o la riproduzione senza autorizzazione.

Per dubbi o domande potete scriverci a domande@macrofacili.it, sulla nostra pagina FB MacroFacili.it o sul gruppo FB Excel, macro e formule.