Risultati da 1 a 5 di 5

Discussione: Problema macro inserimento immagini excel 2010



  1. #1
    L'avatar di Mr.Troy
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Macerata
    Messaggi
    1
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Problema macro inserimento immagini excel 2010

    Buongiorno a tutti, mi sono appena iscritto a questo forum molto interessante, sono un addetto al ced e lavoro all'interno di una media impresa.

    Mi sono imbattuto in un problema veramente strano:


    la mia collega ha un foglio Excel con una macro con cui inserisce le immagini relative al codice prodotto.
    Fino a qui tutto bene, la macro funziona perfettamente e le immagini si vedono tutte.


    Il problema nasce quando prova ad inviarlo a qualsiasi altro utente: quando si va ad aprire quel file, le immagini scompaiono e al loro posto c'è un segnaposto con scritto:


    "Impossibile visualizzare l'immagine collegata.E' possibile che il file sia stato spostato, rinominato o eliminato.
    Verificare che il collegamento rimandi al file e al percorso corretti."


    Il fatto interessante è che finchè lavoravano tutti con Excel 2007 funzionava tutto, ora invece che tutti lavorano con Excel 2010 si presenta questo problema.


    Vi mostro il codice della macro:


    Codice: 
    Sub InsImg()
    Dim Tmp01     As String
    Application.ScreenUpdating = False
    
    
    
    
    
    
    
    
    ActiveSheet.Shapes.SelectAll
    'Selection.Delete
    
    
    
    
    MsgBox Cells(1, 3)
    'mPath = ActiveWorkbook.Path                    'percorso foglio attivo
    mPath = Cells(1, 3)
    r = 2 ' riga inizio prodotti
    Lr = Range("d" & Rows.Count).End(xlUp).Row ' ultima riga da analizzare
    For i = r To Lr
       mfoto = Cells(i, 4)
    
    
       If Len(mfoto & "") <> 0 Then ' se c'e' il nome prodotto
       Tmp01 = Mid(mfoto, 1, 19)
           If Dir(mPath & "\" & mfoto & ".jpg") <> "" Then ' se la foto esiste
               ' inserisce foto e adatta a dimensioni cella/colonna B
               With ActiveSheet.Pictures.Insert(mPath & "\" & mfoto & ".jpg")
    
    
    
    
    'NOTA: in blu per centrare la foto nelle celle (puoi ovviamente variare), altrimenti vengono una attaccata all'altra
                   .Top = Range("C" & i).Top + 5
                   .Left = Range("C" & i).Left + 5
                   .Height = Range("C" & i).Height - 10
                   .Width = Range("C" & i).Width - 10
               End With
           Else
               If Dir(mPath & "\" & Tmp01 & ".jpg") <> "" Then ' se la foto del modello esiste
                   With ActiveSheet.Pictures.Insert(mPath & "\" & Tmp01 & ".jpg")
    'NOTA: in blu per centrare la foto nelle celle (puoi ovviamente variare), altrimenti vengono una attaccata all'altra
                   .Top = Range("C" & i).Top + 5
                   .Left = Range("C" & i).Left + 5
                   .Height = Range("C" & i).Height - 10
                   .Width = Range("C" & i).Width - 10
               End With
    
    
    
    
               End If
           End If
       End If
    Next i
    Application.ScreenUpdating = True
    End Sub!




    Vi sarei veramente grato se riuscite ad aiutarmi, grazie! :)
    Ultima modifica fatta da:Rubik72; 06/09/16 alle 21:32

  2. #2
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: Problema macro inserimento immagini excel 2010

    Ciao Troy, la parola "prova ad inviarlo" mi fa scattare qualche domanda:
    1) inviarlo dove? inviate l'Excel insieme alle immagini?

    Inviato dal mio SM-G920F utilizzando Tapatalk
    Avvisi generali e importanti, pena CHIUSURA thread e/o BAN. Il crossposting è vietato. Le richieste di "pappa pronta" sono vietate. Utilizzate i tag CODE per il codice. Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.



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

    Re: Problema macro inserimento immagini excel 2010

    Quello che mi sovviene al momento è questo :
    Sei sicuro che mpath nella cella (1,3) sia giusto? non ci sono spazi prima o dopo? e lo stesso dicasi di mfoto cella(i,4)?
    Comunque se allegassi un file senza dati sensibili ma con la situazione anomala forse ci si capisce meglio.

    ciao.

    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)

  4. #4
    L'avatar di robynud
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Gardone Val Trompia
    Età
    45
    Messaggi
    155
    Versione Office
    Office 2016
    Likes ricevuti
    24
    Likes dati
    65

    Re: Problema macro inserimento immagini excel 2010

    secondo me inviano solo il file excel senza le immagini suppongo, ma per essere sicuri deve allegare un file (come dice baloon che saluto) seno non si capisce da cosa e causato l'errore, magari senza dati sensibili

  5. #5

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977

    Re: Problema macro inserimento immagini excel 2010

    Visto che sei nuovo del Forum, è gradita una presentazione QUI, ti consiglio anche di leggerti il “Regolamento” e di visitare la sezione “Annunci dello staff”, ti ricordo che il codice può essere scritto nei TAG per una migliore lettura (questa volta lo faccio io)

Discussioni Simili

  1. [Excel 2010] Macro non più funzionante
    Di Daniele.Caso nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 14/03/17, 17:20
  2. [Risolto] errore esecuzione macro su excel 2010
    Di ratner nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 29/09/16, 13:14
  3. Excel 2010 problema sul calendario
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 15/12/15, 11:08
  4. Excel 2010 Inserimento delle voci nella colonna
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 13
    Ultimo Messaggio: 12/12/15, 21:48
  5. Excel 2010 Inserimento dati.
    Di Pacifico437 nel forum Domande su Excel in generale
    Risposte: 20
    Ultimo Messaggio: 27/11/15, 01:30

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
  •