limite dimensione foto in userform

[wallace&gromit]

con questo comando:

Codice: Seleziona tutto

    fName = Sheets("Foglio1").Cells(Range("K3"), 2)
    Me.Image1.Picture = LoadPicture(fName)


carico un'immagine nella userform, seguendo l'elenco degli indirizzi che ho in colonna B del foglio.
Funziona quasi sempre, ma ho notato che quando cerco di caricare una foto maggiore di 8 MB la macro si interrompe. C'è un limite in questo senso?
Come posso aggirarlo (possibilmente senza ridurre la risoluzione dell'immagine)?

P.S. la legge di Murphy vuole che ho fatto le prime prove proprio con uno di questi file e ci ho sbattuto la testa un po' prima di capire che il problema era la dimensione del file (almeno penso).

[davide72]

attendi anthony47 o altri , però diffida di chi gioca di espedienti sulla base delle esprienze

[Anthony47]

Ho caricato senza problemi una jpg da 11 MByte (9k * 14k pixel), anche se il comando LoadPicture ha richiesto alcuni secondi prima di completarsi.
Di default sul controllo Image viene visualizzata solo una piccolissima parte dell'immagine, per visualizzarla in modo comprensibile ho usato la proprieta' PictureSizeMode (vedi https://docs.microsoft.com/it-it/office ... -property):

Codice: Seleziona tutto

Private Sub UserForm_Initialize()
   fName = "D:\DImmagini\NomeImmagine_0001.jpg"
    Me.Image1.Picture = LoadPicture(fName)
    Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub


Se a te proprio si blocca dovrebbe esserci qualcosa altro; quelle immagini sono regolarmente visualizzabili tramite Visualizza immagini di Window?

Ciao

[wallace&gromit]

però diffida di chi gioca di espedienti sulla base delle esprienze

mmh, penso che dovrei diffidare di me stesso più di ogni altro in questo caso.

@Anthony, sì, quelle foto le vedo normalmente in qualsiasi altro programma.
Le impostazioni dell'immagine (avevo messo stretch ma fa lo stesso) le ho già messe nella proprietà dello userform.

Mi esce questo messaggio:
Errore di run-time '-2147467259 (80004005)':

Errore di automazione
Errore non specificato

In rete dicono che centra con la protezione dei fogli, ma i miei non sono protetti

[wallace&gromit]

Ho provato anche io a rendere più pesante una foto esistente e funziona, quindi non è la dimensione il problema.
Ho provato a spostare una di quelle foto sul desktop (prima erano in dropbox) ma continua con lo stesso errore.
Poi, continuando a provare, ne saltano fuori altre che non funzionano, non ho ancora capito se hanno qualcosa in comune (alcune so che le ho elaborate io con Corel Photopaint, ma non tutte.

[Anthony47]

Mah... Puoi condividere un file dimostrativo, contenente quella form, piu' una immagine con cui a te capita il problema?

[wallace&gromit]

Ecco il file
https://www.dropbox.com/s/a3xfg9nv9wz0npk/macro%20gestisci%20foto.xlsm?dl=0
ho provato a mettere le immagini sul mio desktop

Qui un'immagine che non funziona
https://www.dropbox.com/s/ak50e08uqaelrni/1c.jpg?dl=0
Qui una che funziona
https://www.dropbox.com/s/t0d8o6jbtpxmagc/Reflection_960_ff1cec95787fda913d63345153c95b39.jpg?dl=0

Per spiegare, il mio progetto è questo:
voglio creare in excel un database delle mie foto, dove oltre alle indicazioni base delle foto vorrò aggiungere una spunta per esempio con le persone raffigurate, in modo da potere filtrare e cercare per persona e data. Oppure anche una valutazione sulla qualità delle foto, in modo da filtrare le più significative, ecc.

Per fare tutto questo ho pensato ad una userform che mi permette di navigare tra le foto, poi pian piano aggiungerò i comandi che mi permetteranno di completare il database.

[Anthony47]

Penso che l'alberello di Natale sia andato a male, perche' mai visto una jpg di 226 * 265 pixel che pesi 1.8 MByte

Non so cosa si puo' fare, visto che Paint la apre e la salva praticamente nello stesso modo

[wallace&gromit]

Hehe, eppure fino alla candelora gli addobbi dovrebbero resistere.
È stato un esperimento di pompaggio di file quando ritenevo che potesse essere la causa, ma altre foto più grandi funzionano senza problemi. Sarà qualche codifica strana fatta da photopaint.
Visto che il problema si pone solo per alcune immagini provo a fare in modo di passare automaticamente all'immagine successiva con la mia anteprima.