inserire immagini

Hai un problema con Excel?

Nuova discussione

Far comparire immagini
di Paolo c. (utente non iscritto) data: 12/08/2009
Buongiorno ragazzi, ho ancora bisogno di voi, perdonatemi la mia ignoranza in materia. ho creato una macro per creare etichette, l'unica cosa che non riesco a fare e far comparire un immagine sul foglio di lavoro. il problema nasce dal fatto che stampo le etichette su fogli a4 predisposti per etichette adesive e non vorrei "sporcare" anche le etichette che in quel momento non servono, poniamo di stampare solo 1 etichetta, quindi faccio comparire tutti i dati volta per volta e vorrei anche inserire il nostro logo. vi posto il codice.

Private Sub CommandButton2_Click()
a = OptionButton1.Value
b = OptionButton2.Value
If a = False And b = False Then
MsgBox "DEVI SELEZIONARE IL TIPO DI ETICHETTA"
Exit Sub
End If
If TextBox2 = "" Or TextBox3 = "" Or TextBox5 = "" Then 
MsgBox "MANCANO DATI ARTICOLO"
Exit Sub
End If
If interruttore = True Then  
MsgBox "DATI NUOVO ARTICOLO NON REGISTRATI - REGISTRARLI"
Exit Sub
End If

If OptionButton2.Value = True Then
Sheets("Etichette").Select
codice = TextBox3
If codice = "" Then Exit Sub
Set Intervallo = Range("A1:I35")  
If Application.CountIf(Intervallo, codice) = 0 Then  
codice = Array("B3", "G3", "B12", "G12", "B21", "G21", "B30", "G30")
barre = Array("C1", "H1", "C10", "H10", "C19", "H19", "c28", "H28")

For M = LBound(codice) To UBound(codice) 
If Range(codice(M)) = "" Then
Range(codice(M)) = TextBox3
Range(codice(M)).Offset(2, -1) = TextBox2  'descriz articolo
Range(codice(M)).Offset(4, 0) = CDbl(TextBox5) 'prezzo
Range(barre(M)) = FF_EAN13(TextBox4) 'a barre
Range(codice(M)).Offset(0, -1) = "Cod."
Range(codice(M)).Offset(4, -1) = "€"
Range(codice(M)).Offset(4, 1) = "IVA ESCLUSA"
(Qui vorrei far inserire l'immagine 
Range(codice(M)).Offset(2, -1) =LoadPicture ("C:Documents and SettingsUserDocumentiImmaginiBranc.JPG")
Exit For
End If

di Big ronnie (utente non iscritto) data: 12/08/2009
Ciao paolo,prova cambiando questa riga

range(codice(m)).offset(2, -1) =loadpicture ("c:documents and settingsuserdocumentiimmaginiranc.jpg")

in questo modo

activesheet.pictures.insert("c:documents and settingsuserdocumentiimmaginiranc.jpg").select
selection.left = range(codice(m)).offset(2, -1).left
selection.top = range(codice(m)).offset(2, -1).top
fai sapere

ciao big
di Paolo c. (utente non iscritto) data: 13/08/2009
Grazie funziona alla grande!! un ultima cosa per cancellarla come faccio?
di Big ronnie (utente non iscritto) data: 13/08/2009
Toglie la prima

activesheet.shapes(1).delete

le toglie tutte

for each sh in sheets(1).shapes
sh.delete
next

ciao big

Vuoi Approfondire?