Condividi:        

Foto in una cella con Excel ultima versione

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

Foto in una cella con Excel ultima versione

Postdi Alfeo1944 » 02/05/12 23:50

Ho questa macro su un fogli Excel:
Codice: Seleziona tutto
Dim Foto As String
    Foto = Range("ay7")
    Range("AD14").Select
    ActiveSheet.Pictures.Delete
    ActiveSheet.Pictures.Insert(Foto).Select
    Selection.ShapeRange.ScaleWidth 0.355, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.355, msoFalse, msoScaleFromTopLeft
    Range("a1:A1").Select
End Sub

Nella cella 'AY7' ho l'indirizzo della foto sceta di volta in volta con un menù a tendina; nella cella 'AD14' mi compare la foto in oggetto (ovviamente quella scelta dal menù a tendina).
Tutto funzionava perfettamente con una precedente versione di Excel; con l'ultima versione mi compare la foto giusta, ma non in 'AD14'. Perchè? Cosa devo modificare? Grazie
Alfeo1944
Newbie
 
Post: 3
Iscritto il: 02/05/12 18:03

Sponsor
 

Re: Foto in una cella con Excel ultima versione

Postdi Flash30005 » 03/05/12 00:02

Ciao Alfeo1944 e benvenuto nel Forum

E dove viene visualizzata la foto?
in quale cella?
Come attivi questa macro?
da un codice nel foglio che al cambio (change) della cella Ay7 si attiva la macro?

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Foto in una cella con Excel ultima versione

Postdi Anthony47 » 03/05/12 00:31

Testando il codice in XL2010 l' immagine (angolo "top /left") viene posizionata regolarmente su AD14.
Quindi alle domande di Flash (vedi sopra), aggiungo:
-tu quale versione usi?
-fai tasto dx sul tab col nome del foglio su cui lavori, scegli Visualizza codice: sono presenti delle macro?

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Foto in una cella con Excel ultima versione

Postdi Alfeo1944 » 03/05/12 01:03

Uso la 2007; sul foglio ci sono le macro; la macro si attiva cliccado su un nome della casella a tendina (20 nomi con scorrimento verticale).
Ma perchè con la 2003 funziona !!!!!
Il foglio è una scheda anagrafica personallizzate di diverse centinaia di espositori a un "Mercatino"; oltre ai dati anagrafici riuscivo a inserire in AD14 la foto dello stand presa da un data base le cui coordinate sono in ay7 (es. g:\Mercatino\DB-FOTO\P1010208.jpg), ovviamente il numero nel nome della foto cambia a seconda dell'espositore cliccato).
Grazie
Alfeo1944
Newbie
 
Post: 3
Iscritto il: 02/05/12 18:03

Re: Foto in una cella con Excel ultima versione

Postdi Zer0Kelvin » 03/05/12 08:58

Ciao,
Io ho provato e la macro funziona. :?: :?: :?:
"Tanto per", prova a spostare il punto in cui selezioni la cella AD14:
Codice: Seleziona tutto
    ActiveSheet.Pictures.Delete
    Range("AD14").Select
    ActiveSheet.Pictures.Insert(Foto).Select
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23

Re: Foto in una cella con Excel ultima versione

Postdi Flash30005 » 03/05/12 09:01

Non hai specificato dove viene posizionata la foto (in quale cella) e se sempre nello stesso punto
Inoltre se puoi pubblicare la macro che hai nel foglio

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Foto in una cella con Excel ultima versione

Postdi Alfeo1944 » 04/05/12 01:13

Ho risolto il problema modificando la macro così:
Codice: Seleziona tutto
Sub Macro2()
'Macro
 Dim Foto As String
    Foto = Range("ay7")
    Range("AD14:ad14").Select
    ActiveSheet.Pictures.Delete
    ActiveSheet.Pictures.Insert(Foto).Select
    Selection.ShapeRange.ScaleWidth 0.4, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.4, msoFalse, msoScaleFromTopLeft
    Selection.Cut
    Range("ad14:ad14").Select
    ActiveSheet.Paste
    Range("ad14:Ad14").Select
    End Sub

Poichè ho foto di diverse dimensioni potreste darmi una dritta per avere automaticament sempr la stessa dimensioni cambiando le righe 5 e 6 ad es da cella a cella o dimensione in cm. Grazie
Alfeo1944
Newbie
 
Post: 3
Iscritto il: 02/05/12 18:03

Re: Foto in una cella con Excel ultima versione

Postdi Flash30005 » 04/05/12 01:39

Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Foto in una cella con Excel ultima versione

Postdi Anthony47 » 04/05/12 14:14

In pratica, nella tua macro elimini le due righe che contengono ScaleWidth 0.4 e le sostituisci con:
Codice: Seleziona tutto
NWS = 300 / Selection.ShapeRange.Width        '<<< **3
Selection.ShapeRange.ScaleWidth NWS, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight NWS, msoFalse, msoScaleFromTopLeft


Nell' istruzione marcata <<< "300" rappresenta la larghezza che si vuole dare all' immagine; modficala a piacere.
Se vuoi invece impostare una altezza, nella stessa istruzione marcata <<< imposta l' altezza che vuoi e usa ".Height" invece di ".Width"

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Foto in una cella con Excel ultima versione

Postdi Zer0Kelvin » 04/05/12 14:44

Salve a tutti.
Per avere la dimensione in cm si pùò usare
Codice: Seleziona tutto
Selection.ShapeRange(1).Width = cmX * Application.CentimetersToPoints(1)
Selection.ShapeRange(1).Height = cmY * Application.CentimetersToPoints(1)

dove cmX e cmY sono le misure in cm di larghezza ed altezza. :idea:
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)
Avatar utente
Zer0Kelvin
Utente Senior
 
Post: 388
Iscritto il: 08/04/12 11:23


Torna a Applicazioni Office Windows


Topic correlati a "Foto in una cella con Excel ultima versione":


Chi c’è in linea

Visitano il forum: Gianca532011 e 84 ospiti