+ Reply to Thread
Results 1 to 14 of 14

[BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

  1. 12-10-2013, 05:03 AM #1
    balthamossa2b
    balthamossa2b is offline
    Registered User
    Join Date
    10-10-2013
    Location
    Paris
    MS-Off Ver
    Excel 2010
    Posts
    9

    [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    Interesting bug I just found in Excel 2010:


    1) Create two shapes in Excel.
    2) Change the name of one of them to "shape3" (just so that the code below works)
    3) Group both shapes
    4) Run this code (the zoom value is random, should work with anything <> 100; the rotation value is also random; the If is there to slow down things so that you see what happens):

    Please Login or Register  to view this content.


    5) WEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE








    So yeah, for those at home who didn't try it the group starts to grow and move out of the screen.


    ...WTF.



    Does anyone know how to bypass this? I actually need to use the whole rotation + group + zoom in one of workbooks, but though this looks cool to watch it's not exactly what I want to do. Another solution would be to ungroup the shape I need to rotate, but I would rather not if there is another way out.
    Last edited by balthamossa2b; 12-10-2013 at 06:34 AM.
    Reply With QuoteRegister To Reply
  2. 12-10-2013, 05:49 AM #2
    Izandol
    Izandol is offline
    Forum Guru Izandol's Avatar
    Join Date
    03-29-2012
    Location
    *
    MS-Off Ver
    Excel 20(03|10|13)
    Posts
    2,581

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    I do not see this. The group rotates, nothing more.
    Reply With QuoteRegister To Reply
  3. 12-10-2013, 06:02 AM #3
    balthamossa2b
    balthamossa2b is offline
    Registered User
    Join Date
    10-10-2013
    Location
    Paris
    MS-Off Ver
    Excel 2010
    Posts
    9

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    Did you change the name of the individual shape, and not the group one?


    I've tested this in multiple 2010s and I always get the same effect.
    Reply With QuoteRegister To Reply
  4. 12-10-2013, 06:25 AM #4
    balthamossa2b
    balthamossa2b is offline
    Registered User
    Join Date
    10-10-2013
    Location
    Paris
    MS-Off Ver
    Excel 2010
    Posts
    9

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    In fact, here's a test file if anyone wants to try. The macro is in the module 1.
    Attached Files Attached Files
    Reply With QuoteRegister To Reply
  5. 12-10-2013, 06:28 AM #5
    Izandol
    Izandol is offline
    Forum Guru Izandol's Avatar
    Join Date
    03-29-2012
    Location
    *
    MS-Off Ver
    Excel 20(03|10|13)
    Posts
    2,581

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    No I did not - your directions stated "Change the name of them to "shape3"" and of course I was not able to change the name of both. I do see the behaviour now after naming one of them. I am sure it is a bug and it is present in 2013 as well.
    Reply With QuoteRegister To Reply
  6. 12-10-2013, 06:33 AM #6
    balthamossa2b
    balthamossa2b is offline
    Registered User
    Join Date
    10-10-2013
    Location
    Paris
    MS-Off Ver
    Excel 2010
    Posts
    9

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    Oops, sorry. It was meant to say "one of them" but forgot a word in there.


    I've edited the post.
    Reply With QuoteRegister To Reply
  7. 12-10-2013, 06:40 AM #7
    TMS
    TMS is offline
    Forum Guru TMS's Avatar
    Join Date
    07-15-2010
    Location
    The Great City of Manchester, NW England ;-)
    MS-Off Ver
    MSO 2007,2010,365
    Posts
    44,445

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    With your example workbook, what you describe occurs in Excel 2007 too.

    HTML Code: 

    I don't know if this is a bug or a feature based on unusual use/grouping of shapes.

    Regards, TMS
    Trevor Shuttleworth - Retired Excel/VBA Consultant

    I dream of a better world where chickens can cross the road without having their motives questioned

    'Being unapologetic means never having to say you're sorry' John Cooper Clarke

    Reply With QuoteRegister To Reply
  8. 12-10-2013, 06:46 AM #8
    TMS
    TMS is offline
    Forum Guru TMS's Avatar
    Join Date
    07-15-2010
    Location
    The Great City of Manchester, NW England ;-)
    MS-Off Ver
    MSO 2007,2010,365
    Posts
    44,445

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    Maybe you should rotate the Group?

    Please Login or Register  to view this content.
    Reply With QuoteRegister To Reply
  9. 12-10-2013, 06:48 AM #9
    Izandol
    Izandol is offline
    Forum Guru Izandol's Avatar
    Join Date
    03-29-2012
    Location
    *
    MS-Off Ver
    Excel 20(03|10|13)
    Posts
    2,581

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    When it is only occurring with zoom changed from 100 I think it must be a bug.
    Reply With QuoteRegister To Reply
  10. 12-10-2013, 06:55 AM #10
    balthamossa2b
    balthamossa2b is offline
    Registered User
    Join Date
    10-10-2013
    Location
    Paris
    MS-Off Ver
    Excel 2010
    Posts
    9

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    Quote Originally Posted by TMShucks View Post
    Maybe you should rotate the Group?

    Unfortunately I can't, the group contains textboxes. I've manually extracted the shape from the group for the time being.

    ...Such a headache for a little graphical effect.




    I'll experiment a bit with other Rotation functions, see if there is one which behaves normally.
    Reply With QuoteRegister To Reply
  11. 12-10-2013, 06:56 AM #11
    TMS
    TMS is offline
    Forum Guru TMS's Avatar
    Join Date
    07-15-2010
    Location
    The Great City of Manchester, NW England ;-)
    MS-Off Ver
    MSO 2007,2010,365
    Posts
    44,445

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    Fair enough. I'm sure though, that there must be lots of such "bugs" if you tinker with enough display settings.
    Reply With QuoteRegister To Reply
  12. 12-10-2013, 07:36 AM #12
    Izandol
    Izandol is offline
    Forum Guru Izandol's Avatar
    Join Date
    03-29-2012
    Location
    *
    MS-Off Ver
    Excel 20(03|10|13)
    Posts
    2,581

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    You may ungroup and regroup
    Please Login or Register  to view this content.
    Reply With QuoteRegister To Reply
  13. 12-10-2013, 07:53 AM #13
    balthamossa2b
    balthamossa2b is offline
    Registered User
    Join Date
    10-10-2013
    Location
    Paris
    MS-Off Ver
    Excel 2010
    Posts
    9

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom?

    I just tried replacing Shape.IncrementRotation by Shape.Rotation = Shape.Rotation + 1. Same bugh happens.


    Quote Originally Posted by Izandol View Post
    You may ungroup and regroup
    Please Login or Register  to view this content.


    Nice. However, since my workbook tends to crash often in its current form, I think I'll leave it ungrouped manually and just duplicate all shape manipulation instances elsewhere in my code.
    Reply With QuoteRegister To Reply
  14. 12-10-2013, 12:51 PM #14
    Andy Pope
    Andy Pope is offline
    Forum Guru Andy Pope's Avatar
    Join Date
    05-10-2004
    Location
    Essex, UK
    MS-Off Ver
    O365
    Posts
    20,436

    Re: [BUG] Shape grouping + ActiveWindow.Zoom + Shape.IncrementRotation = Spiral of Doom? 

    Please Login or Register  to view this content.
    Cheers
    Andy
    www.andypope.info
    Reply With QuoteRegister To Reply
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Automatically bringing a Shape into a Cell Using Shape Code
    By dineshtendulkar in forum Excel Programming / VBA / Macros
    Replies: 14
    Last Post: 12-16-2016, 02:25 PM
  2. [SOLVED] Use a button to control a macro that inserts an image into a shape or resets the shape
    By nwb in forum Excel Programming / VBA / Macros
    Replies: 4
    Last Post: 05-13-2013, 04:41 PM
  3. Add command button to shape and change shape color on mouseover
    By maacmaac in forum Excel Programming / VBA / Macros
    Replies: 2
    Last Post: 12-26-2012, 05:12 PM
  4. Spoof Application.Caller? Need to execute a shape's assigned macro as that shape through V
    By jim20111 in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 11-30-2012, 01:29 PM
  5. Retrieve Shape text when more than 255 characters inside shape
    By Wizz in forum Excel Programming / VBA / Macros
    Replies: 1
    Last Post: 03-04-2009, 10:09 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules


Search Engine Friendly URLs by vBSEO 3.6.0 RC 1