try this code it may help you.

Sub removeshadow()

Dim i As Integer

Dim sh As Shape

For i = 1 To Worksheets.Count

Sheets(i).Activate


For Each sh In ActiveSheet.Shapes


sh.Shadow.Visible = msoFalse

Next sh

Next i
End Sub


On Fri, Oct 8, 2010 at 4:54 AM, Jude Barnes <barnes_j...@yahoo.com> wrote:

> Our company is new to Excel 2007.  I have moderate experience in VBA.
> When we converted to Excel 2007 from Excel 2000 we have a staff member
> who suddenly found that 1000+ of her excel files for whatever reason
> has a shadow effect on misc shapes in the excel files.  Each of the
> files has between 1 and 30 worksheets, each with the problem.
>
> I was going to create a macro which removed this effect, but I noticed
> that the vba capture (record macro) does not seem to record anything I
> do with shapes.  As I am not a VBA proggrammer by nature I usually
> start by recording and then hacking my way through.
>
> Here is the manual procedure that works in excel:
> 1. highlight the shape(s)
> 2. right click and choose "format shape"
> 3. choose shadow, and change color from black to white
> (although they are not sure why it's set ON and black in the first
> place)
>
> I cannot figure out yet how to get this into vba to try to automate
> this.
> Can someone send me the code to do this?  Our office online help
> doesn't seem to have much in it.. not sure if we did not configure it
> correctly on our end when we installed office in our shared network
> environment.  I also tried a handful of google searches but never have
> found the exact match of what I'm trying to do in the simple 3 step
> proccess above.
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>



-- 
*Regards*
* *
*Ashish Koul*
*akoul*.*blogspot*.com <http://akoul.blogspot.com/>
*akoul*.wordpress.com <http://akoul.wordpress.com/>
My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>


P Before printing, think about the environment.

-- 
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links : 
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
 
To post to this group, send email to excel-macros@googlegroups.com

<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts

Reply via email to