Risultati da 1 a 19 di 19

Discussione: Form con miniature immagini - potrebbe essere utile a qualcuno



  1. #1
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49

    Form con miniature immagini - potrebbe essere utile a qualcuno

    Spero che il titolo non vada contro le regole del forum :280: ma effettivamente oggi non avevo molto da fare ed allora essendo diventato nonno per la prima volta tre mesi fa ed essendo anche rinco dietro al mio tesoro di bimba, mi sono dilettato a creare un form in cui vado a vedermi le miniature delle (tantissime) foto fatte fino ad oggi così da poter cercare quella/e che mi interessa ed aprirla a grandezza naturale.
    Allego il file che ho creato ed insieme una cartella (naturalmente non con la bimba) con dei panorami che andrà copiata sul disco C (già definita nel VBA) o dove si vuole purchè si vada a cambiarne il percorso nel VBA.
    Spero piaccia anche perchè potrebbe essere usata per altri scopi.

    :222:

    http://dropcanvas.com/idyvy

    P.S.
    Nel form ci sono due cornici in quanto in una vengono visualizzate le miniature orizzontali e nell'altra quelle verticali il tutto per evitare grosse distorsioni delle miniature stesse

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  2. I seguenti 2 utenti hanno dato un "Like" a Baloon_50 per questo post:


  3. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Auguri Nonno!!!
    Gaetano, ho aperto il file ma le foto non si caricano:20:

  4. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Auguri Nonno!!!
    Gaetano, ho aperto il file ma le foto non si caricano:20:
    Devi copiare la cartella Panorami sul disco C

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #4
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Devi copiare la cartella Panorami sul disco C
    Ok fantatico funziona bene, ma spiegami una cosa, ho visto il codice e del commad bottom ActiveX e non ho visto nessun riferimento alla Cartella C/: come si fa a sapere il percorso della cartella se non è specificato?
    Ciao :999:

  6. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Ok fantatico funziona bene, ma spiegami una cosa, ho visto il codice e del commad bottom ActiveX e non ho visto nessun riferimento alla Cartella C/: come si fa a sapere il percorso della cartella se non è specificato?
    Ciao :999:
    Devi vedere il VBA relativo al pulsante APRI (fai doppio click sul pulsante) ed alla routine CmbBox1_change (fai doppio click sulla combobox)
    sono evidenziate le righe da modificare per il percorso dei file

    :299:

    P.S.
    Grazie degli auguri :222:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    QUOTE=Baloon_50;7397]Devi vedere il VBA relativo al pulsante APRI (fai doppio click sul pulsante) ed alla routine CmbBox1_change (fai doppio click sulla combobox)
    sono evidenziate le righe da modificare per il percorso dei file
    P.S. Grazie degli auguri [/QUOTE]


    Yess!! trovato
    anche se il percorso lo si deve cambiare anche nel Image1 and image2
    per oggi la mia chicca di VBA me la sona presa e come sempre grazie


    Codice: 
    Private Sub CmbBox1_Change()
    
    
    
    On Error GoTo azzera
    Dim nome As String
    
    
    nome = CmbBox1.Text
    '------------------------MODIFICA PERCORSO FILE-----------------
    Image1.Picture = LoadPicture("C:\Panorami\" & nome & ".jpg")
    '---------------------------------------------------------------
    If Image1.Picture.Width < Image1.Picture.Height Then
    '------------------------MODIFICA PERCORSO FILE-----------------
       Image2.Picture = LoadPicture("C:\Panorami\" & nome & ".jpg")
    '---------------------------------------------------------------
       Image1.Picture = Nothing
    Else
    '------------------------MODIFICA PERCORSO FILE-----------------
    Image1.Picture = LoadPicture("C:\Panorami\" & nome & ".jpg")
    '---------------------------------------------------------------
       Image2.Picture = Nothing
    End If
    Me.Repaint
    GoTo trovata
    azzera:
    Image1.Picture = Nothing
    Image2.Picture = Nothing
    trovata:
    
    
    End Sub
    
    
    Private Sub CmdFine_Click()
    
    
    Unload UsrFormIndice
    
    
    End Sub
    
    
    
    
    Private Sub CommandButton1_Click()
    On Error GoTo azzera
    Dim uriga As Integer
    
    
    uriga = Cells(Rows.Count, 1).End(xlUp).Row
    For T = 1 To uriga
    If Range("A" & T).Value = CmbBox1 Then
        CmbBox1 = Range("A" & (T + 1)).Value
        Exit For
    End If
    Next
    GoTo basta
    azzera:
    Image1.Picture = Nothing
    Image2.Picture = Nothing
    basta:
    End Sub
    
    
    Private Sub Image1_Click()
    
    
    End Sub
    
    
    Private Sub Image2_Click()
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    
    'inizializza la form mettendo i valori nelle combo box
    'I nomi dei file vanno inseriti nella colonna "A"
    
    
        Dim sh As Worksheet
        Dim lRiga As Long
        Dim lng As Long
        
        Set sh = ThisWorkbook.Worksheets("Foglio1")
        
        With Me
            lRiga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
            For lng = 1 To lRiga
                .CmbBox1.AddItem (sh.Range("A" & lng).Value)
            Next
        End With
        Set sh = Nothing
        
    End Sub
    
    
    Private Sub CmdCerca_Click()
    On Error GoTo finito
    
    
    Dim nome As String
    '------------------------MODIFICA PERCORSO FILE-----------------
    nome = "C:\Panorami\" & CmbBox1 & ".jpg"
    '---------------------------------------------------------------
    ThisWorkbook.FollowHyperlink nome
    finito:
    End Sub
    
    
    Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
    
    End Sub

  8. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    870
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    186
    Auguri anche da parte mia.
    Un aiuto per un dummies che vuole imparare a capire almeno i rudimenti:
    In SVILUPPO clicco su icona Visual Basic e poi...?

    Grazie
    Gene

  9. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    E poi guarda immagine!

    [EDIT] e se fai doppio click su qualsiasi elemento che è presente nella parte destra vedrai che codice è stato scritto!


  10. #9
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    QUOTE=Baloon_50;7397]Devi vedere il VBA relativo al pulsante APRI (fai doppio click sul pulsante) ed alla routine CmbBox1_change (fai doppio click sulla combobox)
    sono evidenziate le righe da modificare per il percorso dei file
    P.S. Grazie degli auguri

    Yess!! trovato
    anche se il percorso lo si deve cambiare anche nel Image1 and image2
    per oggi la mia chicca di VBA me la sona presa e come sempre grazie


    Codice: 
    Private Sub CmbBox1_Change()
    
    
    
    On Error GoTo azzera
    Dim nome As String
    
    
    nome = CmbBox1.Text
    '------------------------MODIFICA PERCORSO FILE-----------------
    Image1.Picture = LoadPicture("C:\Panorami\" & nome & ".jpg")
    '---------------------------------------------------------------
    If Image1.Picture.Width < Image1.Picture.Height Then
    '------------------------MODIFICA PERCORSO FILE-----------------
       Image2.Picture = LoadPicture("C:\Panorami\" & nome & ".jpg")
    '---------------------------------------------------------------
       Image1.Picture = Nothing
    Else
    '------------------------MODIFICA PERCORSO FILE-----------------
    Image1.Picture = LoadPicture("C:\Panorami\" & nome & ".jpg")
    '---------------------------------------------------------------
       Image2.Picture = Nothing
    End If
    Me.Repaint
    GoTo trovata
    azzera:
    Image1.Picture = Nothing
    Image2.Picture = Nothing
    trovata:
    
    
    End Sub
    
    
    Private Sub CmdFine_Click()
    
    
    Unload UsrFormIndice
    
    
    End Sub
    
    
    
    
    Private Sub CommandButton1_Click()
    On Error GoTo azzera
    Dim uriga As Integer
    
    
    uriga = Cells(Rows.Count, 1).End(xlUp).Row
    For T = 1 To uriga
    If Range("A" & T).Value = CmbBox1 Then
        CmbBox1 = Range("A" & (T + 1)).Value
        Exit For
    End If
    Next
    GoTo basta
    azzera:
    Image1.Picture = Nothing
    Image2.Picture = Nothing
    basta:
    End Sub
    
    
    Private Sub Image1_Click()
    
    
    End Sub
    
    
    Private Sub Image2_Click()
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    
    
    'inizializza la form mettendo i valori nelle combo box
    'I nomi dei file vanno inseriti nella colonna "A"
    
    
        Dim sh As Worksheet
        Dim lRiga As Long
        Dim lng As Long
        
        Set sh = ThisWorkbook.Worksheets("Foglio1")
        
        With Me
            lRiga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
            For lng = 1 To lRiga
                .CmbBox1.AddItem (sh.Range("A" & lng).Value)
            Next
        End With
        Set sh = Nothing
        
    End Sub
    
    
    Private Sub CmdCerca_Click()
    On Error GoTo finito
    
    
    Dim nome As String
    '------------------------MODIFICA PERCORSO FILE-----------------
    nome = "C:\Panorami\" & CmbBox1 & ".jpg"
    '---------------------------------------------------------------
    ThisWorkbook.FollowHyperlink nome
    finito:
    End Sub
    
    
    Private Sub UserForm_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    
    
    End Sub
    Private Sub Image1_Click()

    End Sub


    Private Sub Image2_Click()

    End Sub

    In queste due routine non devi fare nulla cancellale pure

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  11. #10
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da G.Bove Visualizza Messaggio
    Auguri anche da parte mia.
    Un aiuto per un dummies che vuole imparare a capire almeno i rudimenti:
    In SVILUPPO clicco su icona Visual Basic e poi...?

    Grazie
    Gene
    Grazie per gli auguri Gene. Credo che Gerardo abbia risposto appieno alla tua domanda. :274:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  12. #11
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Ho spostato il link su dropbox perchè oggi non funzionava il nuovo link per poter scaricare il file e la cartella è questo :

    https://www.dropbox.com/s/rr531b3csj...orami.zip?dl=0

    :999:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  13. #12
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ho spostato il link su dropbox perchè oggi non funzionava il nuovo link per poter scaricare il file e la cartella è questo :

    https://www.dropbox.com/s/rr531b3csj...orami.zip?dl=0

    :999:
    dimenticanza ho aggiunto la possibilità di vedere anche le immagini precedenti

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  14. #13
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona giornata a Tutti e auguri al Nonno.
    UserForm molto interessante; il CommandButton per visualizzare l'immagine precedente l'avevo già inserito, poi, non ho fatto in tempo ad allegare il File modificato.

    L'unica modifica significativa che mi sono permesso di apportare è quella di attribuire il Percorso ad una Costante; in questo modo, modificando la Path (Percorso) nella Costante, tutti i riferimenti al Percorso si aggiornano in automatico.

    Ho già utilizzato UserForm per un mio File nel quale avevo un nutrito numero di immagini .jpg da visualizzare.


    Buon fine settimana.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  15. #14
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona giornata a Tutti e auguri al Nonno.
    UserForm molto interessante; il CommandButton per visualizzare l'immagine precedente l'avevo già inserito, poi, non ho fatto in tempo ad allegare il File modificato.

    L'unica modifica significativa che mi sono permesso di apportare è quella di attribuire il Percorso ad una Costante; in questo modo, modificando la Path (Percorso) nella Costante, tutti i riferimenti al Percorso si aggiornano in automatico.

    Ho già utilizzato UserForm per un mio File nel quale avevo un nutrito numero di immagini .jpg da visualizzare.


    Buon fine settimana.

    Giuseppe
    Grazie per gli auguri, grazie per il riscontro positivo del VBA.

    :999:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  16. #15
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona giornata a Tutti e auguri al Nonno.
    UserForm molto interessante; il CommandButton per visualizzare l'immagine precedente l'avevo già inserito, poi, non ho fatto in tempo ad allegare il File modificato.

    L'unica modifica significativa che mi sono permesso di apportare è quella di attribuire il Percorso ad una Costante; in questo modo, modificando la Path (Percorso) nella Costante, tutti i riferimenti al Percorso si aggiornano in automatico.

    Ho già utilizzato UserForm per un mio File nel quale avevo un nutrito numero di immagini .jpg da visualizzare.


    Buon fine settimana.

    Giuseppe
    Giuseppe scusa ma non riesco ad assegnare la variabile come public (non viene vista nelle routine) come l'hai definita tu?

    Grazie - :999:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  17. #16
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Baloon.
    purtroppo Ti leggo solo ora.
    Riporto il Tuo Codice modificato per le mie esigenze:
    Codice: 
    Option Explicit
    
    Private Sub CmbBox1_Change()
    On Error GoTo azzera
    Dim nome As String
    Const Path As String = "C:\Panorami\"
    
        nome = CmbBox1.Text
        Image1.Picture = LoadPicture(Path & nome & ".jpg")
            If Image1.Picture.Width < Image1.Picture.Height Then
               Image2.Picture = LoadPicture(Path & nome & ".jpg")
               Image1.Picture = Nothing
            Else
                Image1.Picture = LoadPicture(Path & nome & ".jpg")
                Image2.Picture = Nothing
            End If
        Me.Repaint
            GoTo trovata
    azzera:
        Image1.Picture = Nothing
        Image2.Picture = Nothing
    trovata:
    End Sub
    Private Sub CmdFine_Click()
        Unload UsrFormIndice
    End Sub
    Private Sub CommandButton1_Click()
    On Error GoTo azzera
    Dim uriga As Long, T As Long
    
        uriga = Cells(Rows.Count, 1).End(xlUp).Row
            For T = 1 To uriga
                If Range("A" & T).Value = CmbBox1 Then
                    CmbBox1 = Range("A" & (T + 1)).Value
                    Exit For
                End If
            Next
        GoTo basta
    azzera:
        Image1.Picture = Nothing
        Image2.Picture = Nothing
    basta:
    End Sub
    
    Private Sub CommandButton2_Click()
    On Error GoTo azzera
    Dim uriga As Long, T As Long
    
        uriga = Cells(Rows.Count, 1).End(xlUp).Row
            For T = 1 To uriga
                If Range("A" & T).Value = CmbBox1 Then
                    CmbBox1 = Range("A" & (T - 1)).Value
                    Exit For
                End If
            Next
        GoTo basta
    azzera:
        Image1.Picture = Nothing
        Image2.Picture = Nothing
    basta:
    End Sub
    
    Private Sub UserForm_Initialize()
    'inizializza la form mettendo i valori nelle combo box
    'I nomi dei file vanno inseriti nella colonna "A"
    Dim sh As Worksheet
    Dim lRiga As Long, lng As Long
    
        Set sh = ThisWorkbook.Worksheets("Visualizza foto")
            With Me
                lRiga = sh.Range("A" & sh.Rows.Count).End(xlUp).Row
                    For lng = 1 To lRiga
                        .CmbBox1.AddItem (sh.Range("A" & lng).Value)
                    Next
            End With
        Set sh = Nothing
        
    End Sub
    Private Sub CmdCerca_Click()
    On Error GoTo finito
    Dim nome As String
    
        nome = Path & CmbBox1 & ".jpg"
        ThisWorkbook.FollowHyperlink nome
    finito:
    End Sub
    La Costante Path definisce il Percorso.
    Modificando la definizione di:
    Codice: 
     Const Path As String = "C:\Panorami\"
    in:
    Codice: 
     Const Path As String = "C:\Protezione civile\Foto Volontari\"
    ho potuto utilizzare lo stesso Codice senza dover modificare tutte le Informazioni che richiedono il Percorso.

    Potrai notare che mi sono permesso di dichiarare "Long" le Variabili:
    - uriga
    - lRiga
    - lng
    originariamente erano definite "Integer".

    A mio parere, "Integer", è compatibile con la struttura del Codice VBA, ma, l'Ottimo "Scossa", (che saluto), in altro Forum, mi ha fatto giustamente presente che, Microsoft© ha stabilito che tutte le Variabili che ricevono il Numero di Riga o di Colonna in modo dinamico, nel nostro caso:
    Codice: 
     uriga = Cells(Rows.Count, 1).End(xlUp).Row
    e, analogamente per le altre due Variabili sopra indicate, vanno definite "Long".

    Da quel momento, ho cercato di seguire questo tipo di struttura.

    In realtà avrei potuto dichiarare una sola volta tutte le Variabili Dim come Public in questo modo:
    Codice: 
    Option Explicit
    Public nome As String
    Public uriga As Long, T As Long, lRiga As Long, lng As Long
    Public sh As Worksheet
    Const Path As String = "C:\Protezione civile\foto soci\"
    
    TuoCodice senza le dichiarazioni delle Variabili/Costanti
    ma, ho preferito seguire la struttura sopra riportata per una serie di motivi che, se lo ritieni opportuno, possiamo approfondire.



    A disposizione.

    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

  18. I seguenti utenti hanno dato un "Like"


  19. #17
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da GiuseppeMN Visualizza Messaggio
    Buona sera, Baloon.
    purtroppo Ti leggo solo ora.
    Riporto il Tuo Codice modificato per le mie esigenze:

    Potrai notare che mi sono permesso di dichiarare "Long" le Variabili:
    - uriga
    - lRiga
    - lng
    originariamente erano definite "Integer".

    A mio parere, "Integer", è compatibile con la struttura del Codice VBA, ma, l'Ottimo "Scossa", (che saluto), in altro Forum, mi ha fatto giustamente presente che, Microsoft© ha stabilito che tutte le Variabili che ricevono il Numero di Riga o di Colonna in modo dinamico, nel nostro caso:
    Codice: 
     uriga = Cells(Rows.Count, 1).End(xlUp).Row
    e, analogamente per le altre due Variabili sopra indicate, vanno definite "Long".

    Da quel momento, ho cercato di seguire questo tipo di struttura.

    In realtà avrei potuto dichiarare una sola volta tutte le Variabili Dim come Public in questo modo:

    ma, ho preferito seguire la struttura sopra riportata per una serie di motivi che, se lo ritieni opportuno, possiamo approfondire.



    A disposizione.

    Buona serata.

    Giuseppe
    Grazie Giuseppe sei stato molto esauriente e, visto le qualità di Scossa (che saluto anch'io), prenderò come ottimo consiglio quanto hai detto riguardo alle variabili.

    :999:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  20. #18
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3333
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Grazie Giuseppe sei stato molto esauriente e, visto le qualità di Scossa (che saluto anch'io), prenderò come ottimo consiglio quanto hai detto riguardo alle variabili.

    :999:
    Sai pensandoci bene ogni qualvolta c'è da modificare il percorso bisogna metter mano al VBA allora, visto che comunque bisogna mettere i dati in colonna "A" per poter popolare la combobox, metto direttamente in detta colonna tutto il percorso così posso mettere tutte le foto che voglio anche se si trovano in cartelle diverse. Così facendo si evita di avere n cartelle excel per ogni cartella di foto. Ti garba la mia soluzione?
    :261:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  21. I seguenti utenti hanno dato un "Like"


  22. #19
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Buona sera, Baloon.
    grazie della Tua attenzione.

    Baloon_50, scrive:
    Sai pensandoci bene ogni qualvolta c'è da modificare il percorso bisogna metter mano al VBA allora, visto che comunque bisogna mettere i dati in colonna "A" per poter popolare la combobox, metto direttamente in detta colonna tutto il percorso così posso mettere tutte le foto che voglio anche se si trovano in cartelle diverse. Così facendo si evita di avere n cartelle excel per ogni cartella di foto.
    Questa è sicuramente un'ottima soluzione.


    Buona serata.

    Giuseppe
    Windows XP Excel 2000 - Windows 10 Excel 2013

Discussioni Simili

  1. Risposte: 3
    Ultimo Messaggio: 14/03/17, 11:53
  2. [Risolto] ultima data utile
    Di D@nilo nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 11/02/17, 22:55
  3. Notifica via e-mail ogni volta che qualcuno risponde ad una mia discussione
    Di matteo81 nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 2
    Ultimo Messaggio: 23/12/16, 19:51
  4. Risposte: 5
    Ultimo Messaggio: 21/04/16, 14:55
  5. I post devono essere verificati da un moderatore?
    Di Baloon_50 nel forum Problemi, suggerimenti e Novità del forum
    Risposte: 3
    Ultimo Messaggio: 09/04/16, 15:20

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •