Condividi:        

EXCEL Inserire immagine accordo per spartito

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

EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 21/04/12 20:13

Buongiorno,
scusate se mi intrometto ma approfitto per chiedere una mia curiosità.
Vorrei creare in un foglio Excel, di cui allego l'immagine, l'opportunità di digitare il nome di un accordo
e ritrovarmi poi nella cella sottostante l'immagine dello stesso, così per tutti gli accordi che necessitano
per il completamento dell'eventuale spartito.

Immagine

Nella riga evidenziata all'inizio (colonna A) in giallo digito il nome immagine o accordo sulla cella in cui necessita
e nella cella sottostante deve inserire l'accordo o immagine. L'immagine avrà lo stesso nome dell'accordo.

Domanda è possibile realizzare una cosa del genere?
Grazie a tutti anche se la risposta potrebbe essere negativa.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL Inserire immagine accordo per spartito

Postdi Anthony47 » 21/04/12 20:50

Va bene immaginare che scriverai le note in riga 7-14-21-28-etc? E, in queste righe, quali saranno le colonne usate?Intanto comincia a rinominare le jpg delle note come DO.jpg, RE.jpg, etc (cioe' con lo stesso nome che inserirai in cella).

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 21/04/12 21:27

Ciao Anthony,
le righe inizialmente in giallo sono quelle in cui potrei inserire il nome dell'immagine o accordo,
esempio in B7 digito DO, nella cella B8 dovrà caricare l'immagine di nome DO.jpg richiamata dal
valore digitato in B7 e così per tutte le altre celle in cui digiterò il valore della nota.
Le note come le immagini, dovranno essere posizionate in base alle necessità comandate dal testo,
per cui tutte le colonne dalla B alla M potranno essere utilizzate per la digitazione della nota da abbinare al testo.
Spero di essere stato abbastanza chiaro sulla richiesta che ho in mente.
Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi ricky53 » 22/04/12 00:00

Ciao,
avrai notato che Anthony ti ha proposto di utilizzare le righe 7, 14, 21, 28, ecc

Questo vuol dire che lui ha già in testa una soluzione ... attendiamo !!!

Ciao.

P.S.: gli accordi che utilizzerai sono solo "13" quante sono le colonne dalla "A" alla "M" (noterai dalla mia domanda che in quanto a conoscenza della musica io ...)
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 22/04/12 08:31

Buongiorno Ricky, le note per uno spartito possono essere diverse, infatti ho ipotizzato della diverse colonne.
Penso sia fondamentale utilizzare la struttura indicata, cella riga sopra nome nota, cella sotto nota immagine.
Le note saranno tutte in immagini jpg ed il loro nome sarà il classico, esempio RE7.JPG , DO9.jpg etc.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi wallace&gromit » 22/04/12 11:04

Alla fine metterai su youtube la canzone "Il forum di PC-facile è il migliore..."?
La inseriremo nel topic "la nostra musica preferita" :D :D :D
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: EXCEL Inserire immagine accordo per spartito

Postdi Anthony47 » 22/04/12 11:58

Puoi provare la seguente macro:
Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row Mod 7 > 0 Then Exit Sub
If Target.Value <> "" And Application.WorksheetFunction.CountIf(Range("ListaN"), Target.Value) = 0 Then Exit Sub '** Leggi testo
' Definizioni
NoteIn = "B1:M1000"    '<<< Colonne /max righi con note
IPath = ThisWorkbook.Path & "\Accordi\"   '<<< directory immagini
PicSize = 80    '<<< dimensione note
PicMarg = 5     '<<< Cornice delle note
'
If Application.Intersect(Target, Range(NoteIn)) Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
    ActiveSheet.Shapes("ZCZC-" & Target.Address(False, False)).Delete
On Error GoTo 0
If Target.Value = "" Then GoTo Esci
With Target.Offset(1, 0)
    .RowHeight = PicSize
    .ColumnWidth = .ColumnWidth / .Width * PicSize
    .ColumnWidth = .ColumnWidth / .Width * PicSize
    .Interior.Color = RGB(255, 255, 0) '<<< Colore di sfondo
    ClW = .Width: ClH = .Height
    .Select
End With
'inserisci nota
ActiveSheet.Pictures.Insert(IPath & Target.Value & ".jpg").Select
Selection.Name = "ZCZC-" & Target.Address(False, False)
Selection.ShapeRange.ScaleWidth (ClW - PicMarg) / Selection.Width, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight (ClH - PicMarg) / Selection.Height, msoFalse, msoScaleFromTopLeft
'
Esci:
Target.Offset(0, 1).Select
Application.EnableEvents = True
End Sub
Va messa nel "modulo di codice" del foglio su cui inserirai le note: tasto dx sul tab col nome foglio, scegli Visualizza codice, copia la macro e incollala nel frame di dx.
Come avevo anticipato essa presuppone che le note vengano scritte in riga 7, 14, 21, 28, etc (multipli di 7); le colonne sono impostabili, come pure altri parametri (vedi istruzioni marcate <<<)
La macro ridimensiona le immagini secondo le dimensioni della cella (impostabile); se pensi di salvare il file con le note allora e' opportuno che le immagini sul disco non siano di dimensioni (pixel) eccessive; oppure prima del salvataggio fai una "compressione" di tutte le immagini del foglio.
L' istruzione marcata *** controlla che la nota scritta sia presente in un elenco i valori validi; presuppone che sullo stesso foglio delle note sia presente un elenco di valori validi a cui avrai assegnato il nome "ListaN"; volendo puoi usare lo stesso intervallo per una convalida dati delle note da introdurre.

A me il risultato e' come da immagine:
Immagine

Uploaded with ImageShack.us

Aspettiamo lo spartito del forum...

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 22/04/12 21:02

Ciao Anthony,
ho provato la tua macro ma riscontro qualche errore, probabilmente per una mia errata interpretazione.
Prima di tutto ho nominato la riga 7 come ListaN, se nella riga 7 digito l'accordo mi carica l'accordo e lo
posso spostare dove mi serve, ma ho la necessità che anche nelle righe 14-21 etc debba inserire gli accordi
e questo non lo fà perchè il range vale solo per la riga 7. Come detto probabilmente sbaglio qualcosa io,
se puoi darmi qualche altro aiuto.
Grazie Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 22/04/12 21:06

CIao Anthony, ho riprovato il tutto su un foglio nuovo è funziona.
Grazie ti farò sapere eventuali nuove.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi Anthony47 » 22/04/12 23:04

Non hai spiegato come hai risolto, comunque ListaN la devi creare fuori dall' area in cui poi scriverai le note (ad esempio in Z1:Z20, se hai 20 accordi), e deve contenere l' elenco di tutte le possibili note.
La macro usa quell' intervallo per verificare che la nota che hai scritto esiste; e' come una "Convalida da elenco" e serve ad evitare che scrivendo note inesistenti la macro vada in errore.

Se hai dubbi siamo qua.
Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 23/04/12 08:59

Grazie per le ulteriori spiegazioni, come detto io avevo creato ListaN nella riga 7 e inserito li gli accordi,
ed il tutto funzionava, ma adesso ho capito meglio le tue indicazioni. Adesso devo provare a fare un ulteriore
implementazione e se riesco, oppure se non và, ti coinvolgerò nuovamente.
Ti preaanuncio, ma sarà penso non facile, che cercherò di inserire anche il suono delle note.
Ti farò sapere.
Buona giornata a tutti.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi Anthony47 » 23/04/12 14:15

Se vuoi inserire il play di un suono prova a guardare quanto suggerito in questa discussione; viewtopic.php?f=26&t=76725#p435862
Potrai usare la funzione PlaySound, dopo averla creata, sia su formula che su vba.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 23/04/12 15:13

CIao Anthony,
ti ringrazio per il link, andrò a leggere la discussione, io intanto ho provato in base ad alcune
mie vecchie conoscenze ad inserire la macro per suonare gli accordi, gli stessi si trovano
all'interno della Directory AccordiSound, l'unica mia difficoltà è quella di far scegliere alla macro
in base a quanto legge nella riga il file da suonare, se provo uno alla volta è OK, ma non riesco a far
interpretare il valore cella. Ti allego la macro, la prima bozza, se puoi aiutarmi mi farebbe piacere.
Codice: Seleziona tutto
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub MioSuono()
Perc = ActiveWorkbook.Path
Mus = Perc & "\AccordiSound\" & "MI-.wav"
Call sndPlaySound32(Mus, 0)
End Sub
Sub Suono()
Perc = ActiveWorkbook.Path
For Pos = 3 To 8 'numero colonne
If Cells(7, Pos) <> "" Then
Accordo = Cells(7, Pos)
Mus = Perc & "\AccordiSound\" & "Accordo.wav"
Call sndPlaySound32(Mus, 0)
End If
Next
End Sub

Grazie
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi ricky53 » 23/04/12 16:52

Ciao,
prova a modificare l'istruzione
Codice: Seleziona tutto
Mus = Perc & "\AccordiSound\" & "Accordo.wav"

con la seguente
Codice: Seleziona tutto
Mus = Perc & "\AccordiSound\" & Cells(7, Pos) & "-.wav"


Come hai scritto verrebbe sempre eseguito "Accordo.wav".
Non penso esista come file ma immagino esistano vari file .wav il cui nome inizierà con il nome della nota ... è così ?
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 23/04/12 18:48

Ciao Ricky,
grazie per la variazione, funziona come desideravo, per i files hai ragione sono diversi uno per nota.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Re: EXCEL Inserire immagine accordo per spartito

Postdi ricky53 » 24/04/12 00:21

Ciao,
bene.
Alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W10; Office 2003-10-13-16-19
Avatar utente
ricky53
Utente Senior
 
Post: 4565
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL Inserire immagine accordo per spartito

Postdi Flash30005 » 24/04/12 01:54

Non so se questo argomento possa interessare Francesco, intanto lo pubblico...
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=87538&p=499490&hilit=beep#p499490

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL Inserire immagine accordo per spartito

Postdi Francesco53 » 24/04/12 09:10

Grazie
FRancesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL Inserire immagine accordo per spartito":


Chi c’è in linea

Visitano il forum: raimea e 43 ospiti