+ Reply to Thread
Results 1 to 14 of 14

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

  1. #1
    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.

  2. #2
    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.

  3. #3
    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.

  4. #4
    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

  5. #5
    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.

  6. #6
    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.

  7. #7
    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
    36,850

    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

  8. #8
    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
    36,850

    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.

  9. #9
    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.

  10. #10
    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.

  11. #11
    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
    36,850

    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.

  12. #12
    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.

  13. #13
    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.

  14. #14
    Forum Guru Andy Pope's Avatar
    Join Date
    05-10-2004
    Location
    Essex, UK
    MS-Off Ver
    O365
    Posts
    20,119

    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 to 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. 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

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1