Shapes e check box

[Ale75]

Salve,

vorrei realizzare un foglio excell in modo da dare all'utente la possibilitare si smarcare delle Check Box e far comparire delle immagini predefinire in posizioni predefinite.

Esempio
se la prima check box è selezionata appare la prima immagine
se la seconda check box è selezionata appare la seconda immagine
e cosi via.

come posso fare a collegare alla check box ai blocchi realizzati con Shapes?

grazie,
Ale.

[Marius44]

Ciao
Forse è meglio se alleghi un tuo file (struttura uguale all'originale ma senza dati sensibili) e un paio di immagini (ma di queste se ne potrebbe fare a meno) per le quali è importante sapere dove stanno.

Ciao,
Mario

[Anthony47]

Sono piu' ottimista di Marius...
Credo che ti basti inserire i checkbox prelevandoli tra i controlli ActiveX. Poi, se le tue immagini si chiamano Immagine_1, Immagine_2, etc, inserisci il codice di gestione dei checkbox; ad esempio (se ChackBox1 <--> Immagine_1):

Codice: Seleziona tutto

Private Sub CheckBox1_Change()
With ActiveSheet.Shapes("Immagine_1")
    .Visible = CheckBox1.Value
    If CheckBox1 Then
        .Left = Range("F4").Left
        .Top = Range("F4").Top
    End If
End With
End Sub

Replichi analogamente per gli altri checkboxes

Ciao

[Ale75]

perfetto grazie ad entrambi. ho provato la soluzione di Anthony e funziona perfettamente.

grazie

[Ale75]

SAlve,

ho un piccolo problema con gli activeX.
ho inserito quattro "option Button" e devo visualizzare un immagine come da schema sotto:
A) NON visualizzo l'immagine1 se è selezionato il primo option button
B) visualizzo l'immabine1 se è selezionato uno qualunque degli altri tre optionbutton.
inoltre se è selezionato un option button qualsisasi ad eccezione del primo, ho vincolato altre due immagini (pippo e pluto) ad altri due option button.

Il problema è che nel passare tra una qualsiasi delle opzioni superiori alla prima es da 2 a 3, o da 4 a 2 e cosi via, mi da errore sulla comando " .Left = Range("I5").Left ". come se il problema fosse che l'immahgine è gia visualizzata e il comando di rivisualizzarla generasse l'errore
riporto la sub dell'optionbutton3 (le altre due sono identiche ad eccezione dell' optionbutton1 che non genera azioni)

Codice: Seleziona tutto

Private Sub OptionButton3_Change() ' 3rd stage

With ActiveSheet.Shapes("immagine1")
    .Visible = OptionButton3.Value
    If OptionButton3 = True Then
        .Left = Range("I5").Left    ' <<----qua da errore
        .Top = Range("I5").Top
    End If
End With

'' ---  Altre due immaagini copiate e vincolate ad altre due optionButton
With ActiveSheet.Shapes("pippo")
    .Visible = OptionButton9.Value
    If OptionButton9 = True Then
        .Left = Range("s12").Left
        .Top = Range("s12").Top
    End If
End With
With ActiveSheet.Shapes("pluto")
    .Visible = OptionButton10.Value
    If OptionButton10 = True Then
        .Left = Range("s12").Left
        .Top = Range("s12").Top
    End If
End With
End Sub

Sapete suggerirmi come posso risolvere?

grazie,
Ale.

[Anthony47]

Premesso che io avrei usato gli eventi "Click", perche' piu' logici da gestire; comunque non c'e' nessun problema a modificare la posizione di una forma che e' gia' visualizzata.
Devono esserci quindi altri problemi.

Prova a condividere un file minimo dimostrativo, cosi' diventa tutto piu' semplice.

Per le istruzioni su come allegare un file:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao

[Ale75]

Effettivamente è vero. ho controllato la macro ed ho risolto questo problema (era un nome non corretto dell'immagine)

Vorrei chiedere un altra cosa, sempre relativa a questa sub.
ho due gruppi di OptionButton
Il primo contiene l'optionbutto9 e l'optionbutton10
il secondo contien l'optionbutton2 e l'optionbutton3 e l'optionbutton4

l'optionbutton3, se selezionatto deve far comparire limmagine1 e l'immagine pippo o pluto che dipendono dagli optionbutton del primo gruppo. Ho messo la macro sotto e funziona. (idem per l'optionbutton4)

il problema è con l'optionbutton2 che dovrebbe far comparire solo l'immagine1 e nascondere pippo e pluto.

come posso fare per non visualizare pippo e pluto, se seleziono l'optionbutton2 (e quindi optionbutton3 e optionbiutton4 sono deselezionati)?

in pratica una volta che l'immagine pippo o pluto e stata richiamata, rimane. al massimo scompare pippo ed appare pluto, ma una delle due c'è sempre.
/-/-/-/

Codice: Seleziona tutto

Private Sub OptionButton3_Change() ' 3rd stage

With ActiveSheet.Shapes("immagine1")
    .Visible = OptionButton3.Value
    If OptionButton3 = True Then
        .Left = Range("I5").Left    ' <<----qua da errore
        .Top = Range("I5").Top
    End If
End With

'' ---  Altre due immaagini copiate e vincolate ad altre due optionButton
With ActiveSheet.Shapes("pippo")
    .Visible = OptionButton9.Value
    If OptionButton9 = True Then
        .Left = Range("s12").Left
        .Top = Range("s12").Top
    End If
End With
With ActiveSheet.Shapes("pluto")
    .Visible = OptionButton10.Value
    If OptionButton10 = True Then
        .Left = Range("s12").Left
        .Top = Range("s12").Top
    End If
End With
End Sub

[Anthony47]

Ripeto, e' molto piu' semplice usare l'evento Click che non il Change; per il semplice fatto che il Change scatta anche quando si cliccano altri optionbutton dello stesso gruppo, ed e' facile che quanto fatto dall'evento di un button venga disfatto dall'evento dell'altro button.

Quindi:
-in un Modulo Standard, inserisci una sub che nasconda tutte le immagini; esempio:

Codice: Seleziona tutto

Sub HideAll()
With Sheets("IlFoglioConLeImmagini")
    .Shapes("pluto").Visible = False
    .Shapes("pippo").Visible = False
    .Shapes("immagine1").Visible = False
'
' altre "nascondi"
'
End With
End Sub

-poi inserisci le OptionButton_Click ragionando su cosa vuoi che ognuna faccia; ad esempio, per OptionButton3 mi pare debba essere

Codice: Seleziona tutto

Private Sub OptionButton3_Click()
Call HideAll
'
With ActiveSheet.Shapes("Immagine1")
    .Visible = OptionButton3.Value
    .Left = Range("I3").Left      '<<< Scegli tu la posizione
    .Top = Range("I3").Top
End With
With ActiveSheet.Shapes("pippo")
    .Visible = OptionButton9.Value
    .Left = Range("M3").Left      '<<< Scegli tu la posizione
    .Top = Range("M3").Top
End With
With ActiveSheet.Shapes("pluto")
    .Visible = OptionButton10.Value
    .Left = Range("M3").Left      '<<< Scegli tu la posizione
    .Top = Range("M3").Top
End With
End Sub


Quando inserisci del "Codice" usa i tag "Code", la lettura del messaggio sara' piu' semplice (selezioni tutto il codice, premi il tasto "Code" presente in testa al box in cui stai scrivendo il messaggio. Se non lo vedi probabilmente sei in modalita' Risposta veloce: premi Editor completo in coda al box di scrittura)

Ciao

[Ale75]

perfetto grazie !