| | Post: 1 | Registrato il: 27/05/2015
| Età: 47 | Utente Junior | 2013 | | OFFLINE | |
|
28/05/2015 09:17 | |
Salve ho un listino prezzi con il percorso immagine di ogni articolo vorrei che questo percorso mi aprirebbe l'immagine articolo in una cella di dimensione ridotte.Spero di ricevere una risposta grazie [Modificato da segshop 28/05/2015 09:26] |
|
| | Post: 47 | Registrato il: 07/05/2015
| Età: 35 | Utente Junior | 2010 | | OFFLINE | |
|
28/05/2015 09:33 | |
Buongiorno seg,
Direi che non è stata chiarissima l'esposizione, per "percorso immagine" intende il collegamento ipertestuale o altro?
Cosa invece intende per una cella di dimensione ridotte, quanto ridotte, in base a cosa ridotte?
Le chiederei anche, se possibile, di allegare un file excel (senza dati sensibili) dove si possa vedere il problema che ha, così da poter agire direttamente su quello :)
Tendenzialmente una soluzione la si trova :)
Buona giornata, resto in attesa :) |
| | Post: 134 | Registrato il: 06/04/2013
| Utente Junior | 2010 | | OFFLINE |
|
28/05/2015 10:00 | |
Ciao
se ho ben capito:
posto che in colonna A (da A1 a A3) tu hai path e nome immagine da importare (es: c:\tuacartella\tuaFoto.jpg):
1) adatta le celle alle dimensioni volute e poi esegui:
Sub InsPicture()
Dim SH As Worksheet
Dim MyPic As Picture
Dim sPath As String
Set SH = Sheets("Foglio1")
'cancella tutte le immagini esistenti nel folgio1
SH.Shapes.SelectAll
Selection.Delete
' inserisce immagini in col. B, sulla base del percorso indicato in col A
For i = 1 To 3
sPath = Cells(i, 1)
Set MyPic = SH.Pictures.Insert(sPath)
'adatta alle dimensioni della cella
With MyPic
.Height = Cells(i, 2).Height
.Width = Cells(i, 2).Width
.Top = Cells(i, 2).Top
.Left = Cells(i, 2).Left
End With
Next i
End Sub
saluti Domenico
Win 10 - Excel 2016 |
| | Post: 1 | Registrato il: 27/05/2015
| Età: 47 | Utente Junior | 2013 | | OFFLINE | |
|
28/05/2015 15:59 | |
Si non sono stato chiaro per far capire meglio ho allegato un file di esempio,le immagine sono di dimensione 500x500 pixel, vorrei che si visualizzassero di dimensione più piccole.Grazie gentilissimo per la risposta |
|
|