Ciao SteRiz_87, benvenuto nel forum.
Si possono fare parecchie cose, io provo a darti uno spunto e il resto lo devi sistemare tu...
Fai tasto dx sul tab col nome del foglio su cui lavori; scegli Visualizza codice; copia il seguente codice e incollalo nel frame destro dell'editor delle macro che si e' aperto:
- Codice: Seleziona tutto
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
drawL:
deltax = Target.Width / 2
deltay = Target.Height / 2
'
With ActiveSheet.Shapes.AddConnector(msoConnectorStraight, [Z2], [AA2], Target.Left + deltax, _
Target.Top + deltay)
.Line.EndArrowheadStyle = msoArrowheadOpen
.ShapeStyle = msoLineStylePreset8
.Name = "pippo_" & [AB2]
End With
'
Usci:
Cancel = True
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Shapes("Pippo_" & Target.Address(0, 0)).Delete
On Error GoTo 0
On Error GoTo 0
Cancel = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[Z2] = [Z1]: [AA2] = [AA1]: [AB2] = [AB1]
[Z1] = ActiveCell.Left + ActiveCell.Width / 2 '* 0.8
[AA1] = ActiveCell.Top + ActiveCell.Height / 2 ' * 0.2 * 0
[AB1] = Target.Address(0, 0)
End Sub
Questo codice usa le celle Z1:AB2 del tuo foglio di lavoro (che quindi devono essere libere!), e realizza le seguenti prestazioni:
-facendo Doppioclick su una cella viene disegnata una linea che parte dalla cella precedentemente selezionata e arriva nella cella corrente
-facendo TastoDx su una cella viene cancellata la riga che da quella cella parte
In questo modo hai delle funzionalita' basiche.
Per i colori prova a registrare una macro mentre selezioni una riga e le applichi un colore per vedere quale codice realizza la funzione che ti serve, poi adatta il codice che ti ho dato.
Per inserire uno "sfondo" al foglio, guarda l'help on line di Excel alla voce "Aggiungere o rimuovere uno sfondo di un foglio"
Ciao