[Risolto]Collegare disegno

[Alelon]

configuratore armadi finito (1) (1).ods

(28.31 KiB) Scaricato 60 volte

Sera a tutti.
Grazie al prezioso aiuto di alcuni di voi( patel e Gaetano, su tutti)
Ho completato il mio configuratore,di cui allego il file.....
Domanda folle......
Esiste un modo per far si che, man mano che compilo il configuratore, venga visualizzato un disegno? In questo caso un armadio.
Non ho idea su quale strada intraprendere,pensavo a delle formattazioni condizionate che colorino di nero alcune celle, formando pian piano un prospetto dell'armadio....
Mandatemi pure a quel paese .
Grazie sempre

[patel]

Dovresti farci vedere qualche esempio disegnato manualmente sfruttando le celle.

[Gaetanopr]

Esiste un modo per far si che, man mano che compilo il configuratore, venga visualizzato un disegno? In questo caso un armadio.

Sicuramente il sistema più semplice è colorare le celle, potresti pure usare gli strumenti di disegno, prima iniziare manualmente per capire cosa puoi/vuoi ottenere e poi cercare di automatizzare con l'uso di macro, non so se è fattibile ma di sicuro non è un'impresa facile.
Un'altra idea potrebbe essere l'uso di immagini, creare opportune immagini con le varie opzioni e farle apparire sul configuratore

[Gaetanopr]

Anche con la formattazione non viene male, ho fatto una prova con massimo tre ante e tre cassetti, niente mensole e altro al momento

[Alelon]

la soluzione di gaetano e percorribile......
credo ci sia un errore, pero'...... scrivendo 2 ante e 2 cassetti, i cassetti totali diventano 4.
quello si risolve....
vi aggiorno. grazie nsempre

[Gaetanopr]

Si si lo so, l'ho fatto per dare un'idea, naturalmente lo schema devi crearlo tu.

[Alelon]

Ti buonasera...
L'idea di Gaetano resta la migliore, fino ad ora....
Pensavo.......
Con il software che uso per disegnare, in un ora, potrei disegnarne una cinquantina di tipologie....
Esportando per ognuna di esse, un immagine, nominata 1 anta con 2 cassetti,2 ante con........ecc.
Esiste un modo per far si che ,una volta completata la configurazione, venga associata una foto?
Grazie

[Gaetanopr]

Un'altra idea potrebbe essere l'uso di immagini, creare opportune immagini con le varie opzioni e farle apparire sul configuratore

Certo puoi metterle tutte in una cartella, nel configuratore userai una cella dove verrà riportato il nome della configurazione appena completata, questa servirà a prelevare l'immagine dalla cartella.

[Alelon]

Grazie Gaetano. Non ho idea però su come richiamare la giusta immagine.

[Gaetanopr]

... Non ho idea però su come richiamare la giusta immagine.

Lo so tu pensa a creare le immagini e allegane qualcuna.

[Alelon]

lo so che alla fine, tu risolvi!!!
Mi sento in debito.
Ora non ho il PC.
Ne creo 2/3 appena posso e le allego.
PS: con cerca vert?????

[Alelon]

Giusto per provare

[Gaetanopr]

Nel file ho inserito un pulsante per lanciare la macro e un campo immagine dove viene inserita l'immagine scelta nella cella P14.
Il percorso devi cambiarlo con la cartella contenente tutte le immagini.

Codice: Seleziona tutto

"C:/Users/gaeta/OneDrive/Desktop/CONFIGURATORE/"

questo è il mio indirizzo della cartella CONFIGURATORE.
Io ho usato la cella P14, naturalmente puoi scegliere quella che vuoi andando a modificare la macro.
Un lavoro completo sarebbe quello che la cella P14 o un'altra scelta da te venisse compilata in automatico una volta inseriti tutti i dati.

[Alelon]

Grazie Gaetano.
Credo di aver capito cosa modificare e come.
L'ho visualizzato da smartphone,non ho il PC con me. Domani lo provo un po' e ti aggiorno.
2 cose: anziché il pulsante ,non potrei associare la macro, all'evento contenuto modificato?
Seconda cosa .....
Come dici tu, si dovrebbe compilare automaticamente la cella di richiamo, con i vari nomi delle finestre compilate.
A presto maestro.Grazie

[Alelon]

ci siamo quasi......

[Gaetanopr]

Bene, era proprio l'idea che avevo in mente io, in realtà volevo creare una tabella di appoggio dove elencare tutte le caratteristiche di ogni modello, concatenarle e nella colonna seguente indicare il nome, nella cella P14 usare il cerca verticale con i parametri concatenati per ricavarci il nome del modello.

[Alelon]

Così credo sia più sbrigativo...
Nominerò le foto seguendo questo criterio:
1 anta/3cassetti/4mensole=134

[Alelon]

L ultima chicca sarebbe ,tramite macro, ridimensionare il campo immagine in base alle misure dell'armadio,altezza e larghezza.

[Gaetanopr]

Per automatizzare la macro puoi usare l'evento Formule calcolate che in questo caso funziona bene in quanto la routine non modifica alcuna cella e quindi non rilancia un ricalcolo.

L ultima chicca sarebbe ,tramite macro, ridimensionare il campo immagine in base alle misure dell'armadio,altezza e larghezza.

Si potrebbe fare ma dovresti pure ridimensionare le immagini.

[Alelon]

Perché ridimensionare le immagini???
Le immagini che userò saranno tagliate lungo il perimetro dell'armadio.
L'idea è quella di ,mettiamo il caso, nel caso di armadio largo 100 cm,larghezza foto 3...
Armadio largo 150cm, larghezza foto 4,5
Servirebbe per dare un idea presso che reale dell'armadio.

[Gaetanopr]

Armadio largo 150cm, larghezza foto 4,5
Servirebbe per dare un idea presso che reale dell'armadio.

La cella D5 era formattata come testo, cambiala nel tuo file originale.

Codice: Seleziona tutto

Sub Immagine
	Doc = ThisComponent
    Sh=Doc.Sheets(0)  
    DrawPage = Sh.DrawPage
    Form = DrawPage.Forms.GetByIndex(0) 
    Ctl = Form.getByName("CtlImmagine") 
    NomeImage = Sh.GetCellRangeByName("P14").String
  '  If NomeImage = "" Then MsgBox("Non è stata selezionata nessuna immagine", 64, "EXIT") : EXIT SUB
	ctl.ImageURL = ConvertToURL("C:/Users/gaeta/OneDrive/Desktop/CONFIGURATORE/"& NomeImage & ".jpg")
	Larghezza = Sh.GetCellRangeByName("D5").Value * 30
	Altezza = Sh.GetCellRangeByName("G5").Value * 30
    If NOT GlobalScope.BasicLibraries.isLibraryLoaded( "Tools" ) Then GlobalScope.BasicLibraries.loadLibrary( "Tools" )

    Shape = GetControlShape( Doc.Sheets(0), "CtlImmagine" )
    Dim Misure As New com.sun.star.awt.Size
	Misure.Height = Altezza 
	Misure.Width = Larghezza
    Shape.SetSize(Misure)
End Sub   

[Alelon]

Tu sei un genio!
Stop.
Domanda......
Esiste qualcosa in oo che tu non sai fare??