LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default ShemeColor Shape/Group


Hello,
I want to change the view of shapes and groups. For individual shapes
get no error message, for groups I get the error that access is denie
for getting the colorfill of the group. What should I do?

Sub ShapeStatusChange()
Dim dashStat As MsoLineDashStyle
Dim colorStat As Integer
'On Error GoTo ShapeStatusChange_err
For Each sh In ActiveWindow.Selection.ShapeRange
dashStat = Selection.ShapeRange.Line.DashStyle
colorStat = Selection.ShapeRange.Fill.ForeColor.SchemeColor
'dash==line==yellow==red==dash
If dashStat = msoLineDash Then
......
end i

--
Zur
-----------------------------------------------------------------------
Zurn's Profile: http://www.excelforum.com/member.php...fo&userid=1464
View this thread: http://www.excelforum.com/showthread.php?threadid=56418

 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
my curser changed from arrow shape to a cross shape???? bj New Users to Excel 1 February 5th 07 02:47 PM
Change order in a multi-shape group? Jay Excel Programming 0 April 5th 06 11:43 PM
text in shape group pshen Excel Programming 2 June 8th 05 07:34 PM
Get the name of a group given the reference to a shape within the group Andrew[_16_] Excel Programming 5 January 1st 04 01:08 AM
Reference oleobject within shape group Andrew[_16_] Excel Programming 4 December 24th 03 02:31 AM


All times are GMT +1. The time now is 01:19 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"