When I group a few objects together, and apply drop shadow to the group, I cannot edit the individual object in the group (cannot pick it to move it or resize it etc) without removing the drop shadow.
Hi,
Click on the Drop Shadow of the group object. This will select the whole group. Now Click on the object you want to select holding Ctrl & Alt keys together.
Not exactly.
From my experience, if you have any number of grouped objects stacked on top of each other with a drop shadow applied to them...you cannot select each individual object by holding down the Ctrl + Alt keys as stated.
You would only be able to select the bottom most object with the drop shadow applied. Unless of course I am missing something here.
Please correct me if i am wrong.
Juan
Juan M. Guillen said: Not exactly. From my experience, if you have any number of grouped objects stacked on top of each other with a drop shadow applied to them...you cannot select each individual object by holding down the Ctrl + Alt keys as stated.
Hi Juan.
Try this little script.
It will allow you to tab through all shapes or selected shapes using the mouse button as a tab click.
When you see the shape you need selected simply press escape on your keyboard.
~John
Option Explicit Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Const VK_ESCAPE = &H1B Function Wait(sngWaitMax As Single) As Boolean Dim sngStartTime As Single sngStartTime = Timer Do While (Timer - sngStartTime) < sngWaitMax DoEvents Loop End Function Sub selectIt() Dim s As Shape, sr As ShapeRange, sRect As Shape Dim bClick As Boolean, bUseRect As Boolean Dim x1#, y1#, strId$, shift&, x#, y#, w#, h# ResetEscStatus ActiveDocument.Unit = cdrInch If ActiveSelection.Shapes.count = 0 Then Set sr = ActivePage.Shapes.FindShapes Else Set sr = ActiveSelection.Shapes.FindShapes End If bUseRect = False bClick = False For Each s In sr bClick = ActiveDocument.GetUserClick(x1, y1, shift, 3, False, cdrCursorPickNone) If IsEscPressed() Then Exit For If bUseRect Then If Not sRect Is Nothing Then sRect.Delete End If End If If Not bClick Then s.GetBoundingBox x, y, w, h If bUseRect Then Set sRect = ActiveLayer.CreateRectangle2(x, y, w, h) sRect.Outline.Width = 0.1 sRect.Outline.Color.RGBAssign 255, 255, 0 End If strId = s.StaticID s.CreateSelection 'Wait 1 If bUseRect Then sRect.Delete End If Next s ActivePage.Shapes.FindShape(, , strId).CreateSelection End Sub Public Function IsEscPressed() As Boolean Dim b As Boolean b = (GetAsyncKeyState(VK_ESCAPE) <> 0) IsEscPressed = b End Function Public Function ResetEscStatus() As Boolean GetAsyncKeyState VK_ESCAPE ResetEscStatus = True End Function
Thanks John.
Wow!! Your script is much appreciated.
Gracias my friend.
Hi.
Thanks Juan. Glad it helped ya out.
It might come in handy for that hard to grab item!