Sviluppare funzionalita su Microsoft Office con VBA Importazione immagini con macro

LoginRegistrati
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
  • Autore
    Articoli
  • #22861 Risposta

    Lelec69
    Partecipante

      Buonasera al forum.

      Premetto che sono un autodidatta mediocre di excel è avrei la necessità di un aiuto per modificare la macro.

      Utilizzo questa macro per prelevare le immagini nella stessa cartella dove è presente il file xls. Adesso però, avrei bisogno di far prelevare le immagini in una sotto cartella inserita in quella contenente il file di xls.

      Sub Inserimento_Immagine()
      
      Application.ScreenUpdating = False
      ActiveSheet.Shapes.SelectAll
      Selection.Clear
      mPath = ActiveWorkbook.Path
      r = 21
      lr = Range("B" & Rows.Count).End(xlUp).Row
      For i = r To lr
      mFoto = Cells(i, "B")
      
      If Len(mFoto & "") <> 0 Then
      If Dir(mPath & "\" & mFoto & ".jpg") <> "" Then
      With ActiveSheet.Pictures.Insert(mPath & "\" & mFoto & ".jpg")
      .Top = Range("F" & i).Top + 2
      .Left = Range("F" & i).Left + 5
      .Height = Range("F" & i).Height - 17
      .Width = Range("F" & i).Width - 17
      End With
      End If
      End If
      Next i
      Application.ScreenUpdating = True
      End Sub

      Un caloroso ringraziamento a chi mi aiuterà, a tutti i partecipanti di questo forum e ovviamente a chi lo gestisce. Non avete idea di quanto mi siate stati utili in passato e spero anche in futuro.

      #22862 Risposta
      patel
      patel
      Moderatore
      • Sfida #6
        36 pts

        mPath = ActiveWorkbook.Path & "\sottocartella"

        #22925 Risposta

        Lelec69
        Partecipante

          Grazie infinite, sicuramente banale per chi ci capisce

        LoginRegistrati
        Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
        Rispondi a: Importazione immagini con macro
        Gli allegati sono permessi solo ad utenti REGISTRATI
        Le tue informazioni:



        vecchio frac - 2750 risposte

        albatros54
        albatros54 - 833 risposte

        patel
        patel - 724 risposte

        Marius44
        Marius44 - 634 risposte

        Luca73
        Luca73 - 587 risposte