Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

limite dimensione foto in userform

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

limite dimensione foto in userform

Postdi wallace&gromit » 09/01/20 11:04

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).
Office2016 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1977
Iscritto il: 16/01/12 14:21

Sponsor
 

Re: limite dimensione foto in userform

Postdi davide72 » 09/01/20 13:30

attendi anthony47 o altri , però diffida di chi gioca di espedienti sulla base delle esprienze
davide72
Utente Senior
 
Post: 6494
Iscritto il: 10/06/14 22:01

Re: limite dimensione foto in userform

Postdi Anthony47 » 09/01/20 13:45

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
Avatar utente
Anthony47
Moderatore
 
Post: 16744
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: limite dimensione foto in userform

Postdi wallace&gromit » 09/01/20 14:40

davide72 ha scritto: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
Office2016 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1977
Iscritto il: 16/01/12 14:21

Re: limite dimensione foto in userform

Postdi wallace&gromit » 09/01/20 15:15

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.
Office2016 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1977
Iscritto il: 16/01/12 14:21

Re: limite dimensione foto in userform

Postdi Anthony47 » 14/01/20 01:08

Mah... Puoi condividere un file dimostrativo, contenente quella form, piu' una immagine con cui a te capita il problema?
Avatar utente
Anthony47
Moderatore
 
Post: 16744
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: limite dimensione foto in userform

Postdi wallace&gromit » 14/01/20 10:22

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.
Office2016 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1977
Iscritto il: 16/01/12 14:21

Re: limite dimensione foto in userform

Postdi Anthony47 » 14/01/20 14:05

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
Avatar utente
Anthony47
Moderatore
 
Post: 16744
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: limite dimensione foto in userform

Postdi wallace&gromit » 14/01/20 14:18

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.
Office2016 su win7
Avatar utente
wallace&gromit
Utente Senior
 
Post: 1977
Iscritto il: 16/01/12 14:21


Torna a Applicazioni Office Windows


Topic correlati a "limite dimensione foto in userform":


Chi c’è in linea

Visitano il forum: Nessuno e 22 ospiti