Inserire immagini da file

[bigtwo]

Ciao a tutti,
(Office 2003) devo compilare dei report per i quali è neccessario inserire
delle foto.

Uso questo procedimento:
inserisci>immagine>da file e tutte le foto vanno nel mio foglio.

Poi per non appesantire il tutto le devo selezionare una a una (ctrl+click
sn) e fare comprimi.

Domanda: c'è un modo più comodo per gestire le foto?
Ad esempio non c'è come in Word "seleziona tutto"?
Perchè non riesco a copiare da una cartella sul pc i file direttamente?
Ammesso che possano essere gestite in maniera più efficiente mi potete
indicare una guida che spieghi come?

Grazie

[Scossa]

Post by bigtwo
Domanda: c'è un modo più comodo per gestire le foto?
Ad esempio non c'è come in Word "seleziona tutto"?

Nelle opzioni di comprimi c'è da scegliere tra:
*immagini selezionate* e *tutte le immagini nel documento*

Bye!
Scossa

[bigtwo]

Post by bigtwo
Domanda: c'è un modo più comodo per gestire le foto?
Ad esempio non c'è come in Word "seleziona tutto"?

Nelle opzioni di comprimi c'è da scegliere tra:
*immagini selezionate* e *tutte le immagini nel documento*


Si, l'avevo visto...
Il fatto è che devo anche ridimensionarle, insomma avrei necessità di
selezionarle.

Suppongo che non vi siano margini di intervento quindi...

grazie

[Scossa]

Post by bigtwo
Suppongo che non vi siano margini di intervento quindi...

Se ti va bene una soluzione VBA, questo codice ridimensiona (ed
eventualmente ritaglia) tutte le immagini in tutti i fogli di una
cartella (file):

'---------------------------------
'da inserire in un modulo standard
'---------------------------------
'
Public Sub ResImage()
Dim WB As Workbook
Dim SH As Worksheet
Dim shPics As Pictures
Dim MyPic As Picture

Set WB = ThisWorkbook

For Each SH In WB.Worksheets
Set shPics = SH.Pictures
For Each MyPic In shPics
With MyPic.ShapeRange
' ridimensiona immagine
.ScaleWidth 0.32, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.32, msoFalse, msoScaleFromTopLeft
' compressione
.PictureFormat.CropLeft = 0#
.PictureFormat.CropRight = 0#
.PictureFormat.CropTop = 0#
.PictureFormat.CropBottom = 0#
'---
End With
Next
Next
Set MyPic = Nothing
Set shPics = Nothing
Set WB = Nothing
Set SH = Nothing

End Sub


Fai sapere se hai risolto, grazie.

Bye!
Scossa

[bigtwo]

Post by Scossa

Post by bigtwo
Suppongo che non vi siano margini di intervento quindi...

Se ti va bene una soluzione VBA, questo codice ridimensiona (ed
eventualmente ritaglia) tutte le immagini in tutti i fogli di una
'---------------------------------
'da inserire in un modulo standard
'---------------------------------
'
Public Sub ResImage()
Dim WB As Workbook
Dim SH As Worksheet
Dim shPics As Pictures
Dim MyPic As Picture
Set WB = ThisWorkbook
For Each SH In WB.Worksheets
Set shPics = SH.Pictures
For Each MyPic In shPics
With MyPic.ShapeRange
' ridimensiona immagine
.ScaleWidth 0.32, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.32, msoFalse, msoScaleFromTopLeft
' compressione
.PictureFormat.CropLeft = 0#
.PictureFormat.CropRight = 0#
.PictureFormat.CropTop = 0#
.PictureFormat.CropBottom = 0#
'---
End With
Next
Next
Set MyPic = Nothing
Set shPics = Nothing
Set WB = Nothing
Set SH = Nothing
End Sub
Fai sapere se hai risolto, grazie.

Ti ringrazio ma non sono in grado di utilizzare questa soluzione.
Grazie molte comunque.
ciao

[paoloard]

"bigtwo" <***@iol.it> ha scritto nel messaggio news:NoKSn.70342$***@twister2.libero.it...
cut

Post by bigtwo
Ti ringrazio ma non sono in grado di utilizzare questa soluzione.
Grazie molte comunque.
ciao

ciao bigtwo, vedi se questo articolo può esserti utile:
http://riolab.org/index.php?option=com_content&view=article&id=219:inserire-immagini-nelle-celle&catid=47:excel&Itemid=68