Run-time Error 70 - Permission Denied when assessing shape line colour

[Zakkala]

Hi there,

I've got the following code that's erroring out on the bold underlined row - I get a Permission Denied (run time error 70) problem. I think this ran okay under Excel 2000 but can't be sure as I was still mid testing phase, but now I've upgraded to 2003 I've got a feeling this might be part of the problem. Any suggestions gratefully received.

For j = Worksheets("Business").Shapes.count To 1 Step -1
        
            If Worksheets("Business").Shapes(j).Name = mynewdirector Then
                                                       
                If Worksheets("Business").Shapes(j).Fill.ForeColor.SchemeColor <> 17 And Worksheets("Business").Shapes(j).Fill.ForeColor.SchemeColor <> 22 = True Then
                
                    myfillcolor = Worksheets("Business").Selection.ShapeRange.Fill.ForeColor.SchemeColor
                    
                    GoTo nextstep
                    
                End If
                                         
                Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 24 Then
                                                                    
                    myfillcolor = 31
                                                            
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 1 Then

                    myfillcolor = 3
                                 
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 19 Then

                    myfillcolor = 21
                                    
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 17 Then

                    myfillcolor = 19
        
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 36 Then

                    myfillcolor = 33
    
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 20 Then

                    myfillcolor = 11
    
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 34 Then

                    myfillcolor = 26
    
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 16 Then

                    myfillcolor = 47
        
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 23 Then

                    myfillcolor = 40
        
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 30 Then

                    myfillcolor = 27
       
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 33 Then

                    myfillcolor = 45
    
                ElseIf Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor = 49 Then

                    myfillcolor = 31
                       
                End If
                    
nextstep:
                                        
                 mylinecolor = Worksheets("Business").Shapes(j).Line.ForeColor.SchemeColor
            
             End If
                         
        Next j

 

[Zakkala]

SOLVED Re: Run-time Error 70 - Permission Denied when assessing shape line colour

Okay, I seem to have sorted it.

After much heartache it would seem that Excel 2003 does not recognise one of the outline colours I had chosed in Excel 2000.

Once I went through and changed the outline colour on all the shapes that had it to one that looks the same, but is chosen from the right-click format pallette in 2003, everything ran happily.

I am now off for a stiff drink.