Condividi:        

Shapes e check box

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Shapes e check box

Postdi Ale75 » 26/04/18 08:28

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.
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42

Sponsor
 

Re: Shapes e check box

Postdi Marius44 » 26/04/18 11:51

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
Marius44
Utente Senior
 
Post: 655
Iscritto il: 07/09/15 22:00

Re: Shapes e check box

Postdi Anthony47 » 26/04/18 14:02

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Shapes e check box

Postdi Ale75 » 27/04/18 15:20

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

grazie
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42

Re: Shapes e check box

Postdi Ale75 » 02/05/18 15:12

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.
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42

Re: Shapes e check box

Postdi Anthony47 » 02/05/18 22:21

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Shapes e check box

Postdi Ale75 » 04/05/18 12:42

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
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42

Re: Shapes e check box

Postdi Anthony47 » 04/05/18 14:11

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Shapes e check box

Postdi Ale75 » 08/05/18 13:39

perfetto grazie !
Ale75
Utente Junior
 
Post: 47
Iscritto il: 31/03/17 08:42


Torna a Applicazioni Office Windows


Topic correlati a "Shapes e check box":


Chi c’è in linea

Visitano il forum: Marius44 e 49 ospiti