CONTROLLO IMMAGINE

Hai un problema con Excel?

Nuova discussione

CONTROLLO IMMAGINE
di beu (utente non iscritto) data: 09/06/2016 17:56:46
ciao a tutti

vorrei inserire in un file un commandbutton che mi apra una schermata di controllo per sfogliare le cartelle del pc e selezionare un immagine da impostare come attributo PICTURE della mia IMAGE1 (controllo activex)

in pratica ho questa immagine sul file, premendo il bottone si apre la classica finestra che si apre quando selezioni "inserisci immagine".
devo per forza utilizzare un control activex IMAGE in modo da poterlo poi spostare e copiare..
se inserisco una semplice immagine con excel 2007 non riesco a gestire il copia/incolla tramite vba.

Sapete aiutarmi??

grazie in anticipo
di alfrimpa data: 09/06/2016 18:40:13
Ciao Beu

Ti andrebbe bene, anzichè della classica finestra, una userform con una listbox (al cui interno sono elencate le tue immagini) ed un pulsante che cliccato inserisca nel controllo l'immagine scelta nella listbox?

Alfredo
di Beu (utente non iscritto) data: 10/06/2016 07:03:52
Ciao alfredo,
Grazie ma non andrebbe bene.
Le immagini che vado ad inserire ad ogni utilizzo del file sono scansioni fatte sul momento, o foto presenti sul disco. Comunque sempre diverse e dovrebbero esserescelte tramite una finestra de dialogo proprio per poter avere la possibilità di avere un anteprima o poter cambiare ogni volta il percorso..

di patel data: 10/06/2016 11:06:13
intanto prova questa, poi dovresti allegare un file di esempio con anche spiegazioni

Sub InserisciImmagine()
Dim shp As ShapeRange
fName = Application.GetOpenFilename("Picture files (*.jpg;*.gif;*.bmp), *.jpgs;*.gif;*.bmp", , _
            "Select the picture")
If fName = "False" Then Exit Sub
ActiveSheet.Shapes.AddPicture(fName, msoFalse, msoTrue, -1, -1, -1, -1).Select
Set shp = Selection.ShapeRange
'shp.Left = 50
'shp.Top = 30
Set shp = Nothing
End Sub

Vuoi Approfondire?