Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
Condivisione cartella excel
- Hai un problema con Excel?
Condivisione cartella excel
di anto (utente non iscritto) data: 30/11/2014 18:37:02
Salve.
sto cercando di mettere in condivisione una cartella Excel in cui
si trovano delle macro che formattano degli Shapes in base ai valori di alcune celle.quando non è condiviso le macro funzionano perfettamente ma, quando metto in condivisione mi appare il codice di errore:
Run-time error'-2147467259(80004005)':
Metod 'SchemeColor' of object 'ColorFormat' failed
sotto il codice che uso:
c'è qualche soluzione?
grazie
Private Sub Worksheet_Change(ByVal target As Range) If Range("A1").Value = "" Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 3 ElseIf Range("A1").Value = 1 Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 3 ElseIf Range("A1").Value = 2 Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 3 ElseIf Range("A1").Value = 3 Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 3 ElseIf Range("A1").Value = 4 Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 3 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 3 ElseIf Range("A1").Value = 5 Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 3 ElseIf Range("A1").Value = 6 Then ActiveSheet.Shapes("Rectangle 2").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 3").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 4").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 5").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 6").Fill.ForeColor.SchemeColor = 2 ActiveSheet.Shapes("Rectangle 7").Fill.ForeColor.SchemeColor = 2 End If End Sub
- Vuoi Approfondire?
