CAMBIA IMMAGINE CON MACRO

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
gabrielebertasi
00domenica 28 agosto 2016 19:22
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("foglio1").Pictures("foto1").Visible = False
Sheets("foglio1").Pictures("foto2").Visible = False

If ActiveSheet.Range("a1") = 1 Then
Sheets("foglio1").Pictures("foto1").Visible = True
With Pictures("foto1")
.ShapeRange.LockAspectRatio = msoFalse
.Height = 100
.Width = 100

End With


End If
If ActiveSheet.Range("a1") = 2 Then
Sheets("foglio1").Pictures("foto2").Visible = True

With Pictures("foto2")
.ShapeRange.LockAspectRatio = msoFalse
.Height = 100
.Width = 100

End With

End If
End Sub

Ciao a tutti dovrei adattare questa macro per cambio immagine anche nel foglio2!
Si tratta della stessa immagine da inserire nel foglio1 e nel foglio2!


Grazie [SM=x423024]



patel45
00lunedì 29 agosto 2016 09:39
allega un file di esempio da testare, e spiega qual'è il tuo obiettivo e perché usi Worksheet_Change
gabrielebertasi
00lunedì 29 agosto 2016 13:12
Grazie in allegato un semplice esempio,
vorrei inserire la stessa immagine nel foglio2,
ma usando come riferimento sempre la A1 del foglio1


patel45
00lunedì 29 agosto 2016 14:02
devi allegare un file excel zippato e non una immagine
Non hai risposto alla domanda
gabrielebertasi
00lunedì 29 agosto 2016 18:32
scusate l'inesperienza!
patel45
00lunedì 29 agosto 2016 20:04
Le immagini son già esistenti nel foglio 1, la macro le nasconde e mostra quella scelta, per ottenere lo stesso effetto sul foglio2 devi prima inserirci le 2 immagini e poi duplicare le istruzioni sostituendo foglio1 con foglio2
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Foglio1").Pictures("foto1").Visible = False
Sheets("Foglio1").Pictures("foto2").Visible = False
Sheets("Foglio2").Pictures("foto1").Visible = False
Sheets("Foglio2").Pictures("foto2").Visible = False
If ActiveSheet.Range("a1") = 1 Then
  Sheets("Foglio1").Pictures("foto1").Visible = True
  Sheets("Foglio2").Pictures("foto1").Visible = True
End If
If ActiveSheet.Range("a1") = 2 Then
  Sheets("Foglio1").Pictures("foto2").Visible = True
  Sheets("Foglio2").Pictures("foto2").Visible = True
End If
End Sub

gabrielebertasi
00lunedì 29 agosto 2016 22:02
Grazie 1000!
proprio ciò che mancava [SM=x423025]
luiexcel
00sabato 10 settembre 2016 09:01
Ciao
posso adattare questa macro a selezionare una specifica immagine in base al inserimento di determinati valori che inserisco in una cella, cioè ad ogni nome che inserisco corrisponde un immagine.
Grazie
Ciao
Luigi
patel45
00sabato 10 settembre 2016 09:18
è una domanda ? manca il punto interrogativo.
Allega un file di esempio con dati e spiegazioni
luiexcel
00sabato 10 settembre 2016 10:42
Re:
patel45, 10/09/2016 09.18:

è una domanda ? manca il punto interrogativo.
Allega un file di esempio con dati e spiegazioni




Ciao
scusa se non ho messo il ?
ti allego un file che ho creato come esempio, in base al'azienda che seleziona dal menù a tendina vorrei che uscisse il logo del azienda.
Spero di essermi spiegato questa volta
grazie
ciao
patel45
00sabato 10 settembre 2016 19:58
puoi adattare la macro al tuo caso, se vuoi che lo faccia io devi allegare il file che contenga anche le immagini
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 17:38.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com