Immagini in celle di un catalogo

Versione Completa Stampa Cerca Utenti Iscriviti Condividi :

Excel Forum » Excel Forum » » Soluzioni Excel Domande e Risposte

rickybianchi

00martedì 27 dicembre 2016 22:22

Ciao a tutti ragazzi, sono nuovo del forum e sto cercando di capire un po' come funziona. Diciamo che mi ritengo un utente abbastanza avanzato di excel dal punto di vista delle formule dati ecc, ma sono un po' carente per quanto riguarda le macro e la programmazione in VB anche se un po' di codice lo so.
Premesso questo spiego il mio problema che dovrei risolvere in questi giorni:

ho fatto un catalogo non illustrato di prodotti, ora dovrei mettere per ogni cod. articolo la foto corrispondente nella colonna a fianco prima delle diverse alternative di colore.
ho già raccolto tutte le immagini e rinominate con il codice articolo in una cartella in documenti in modo da poterle recuperare con una macro (credo).
Vorrei che le immagini siano tutte delle stesse dimensioni e allineate mi potete aiutare?
in quanto fatto manualmente è troppo dispendioso e non ho la certezza che mi si allineano le immagini

Grazie mille
Riccardo

[SM=x423023]

federico460

10mercoledì 28 dicembre 2016 07:15

Ciao
visto che il vba già lo conosci
smanetta con questo file
e vedi se è quello che ti interessa
ci sono due file excel
con differenti possibilità
di inserimento immagine

nb

se non ci riesci (ma ne dubito [SM=g27823]

)

allega un file esempio

rickybianchi

00mercoledì 28 dicembre 2016 10:24

Quello di cui ho bisogno sarebbe inserire immagini in un catalogo come da file allegato.

mi può dare un'occhiata.
purtroppo ho scritto che sono carente in VBA

saluti
grazie Riccardo

patel45

00mercoledì 28 dicembre 2016 11:11

prova questa macro

Sub foto()
Dim r As Long, c As Long, ind As String, Shp As Picture, Rng As Range
LR = Cells(Rows.Count, "C").End(xlUp).Row
For r = 3 To LR
  If Cells(r, "C") <> "" Then
    ind = ThisWorkbook.Path + "\Foto\" & Cells(r, "C") & ".jpg" 
    aleft = Cells(r, "D").Left
    atop = Cells(r, "D").Top
    h = Cells(r, "D").MergeArea.Height
    w = Cells(r, "D").Width
    Application.ActiveSheet.Shapes.AddPicture ind, False, True, aleft, atop, w, h
  End If
Next
End Sub

ma prima imposta il formato testo nella colonna C e assicurati che i nomi delle foto corrispondano

rickybianchi

00mercoledì 28 dicembre 2016 11:20

Inserisce solo la prima cella, non tutte le immagini.

come posso fare [SM=x423023]

patel45

00mercoledì 28 dicembre 2016 12:20

hai fatto quello che ti ho chiesto ?

ma prima imposta il formato testo nella colonna C e assicurati che i nomi delle foto corrispondano

rickybianchi

00mercoledì 28 dicembre 2016 12:27

certo guarda qui.

patel45

00mercoledì 28 dicembre 2016 12:35

guarda bene in quale foglio hai messo la macro

rickybianchi

00mercoledì 28 dicembre 2016 13:10

Perdonami è vero scusa.
ma in questo modo tutte le foto vengono dimensionate come la cella giusto? devo prima sistemare manualmente tutte le celle della stessa misura?

grazie

patel45

00mercoledì 28 dicembre 2016 15:32

ma in questo modo tutte le foto vengono dimensionate come la cella giusto? - esatto

devo prima sistemare manualmente tutte le celle della stessa misura? -non necessariamente

Se tu non avessi avuto celle unite sarebbe stato più semplice dimensionare tutto in automatico

Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 07:33.