+ Reply to Thread
Results 1 to 5 of 5

VBA - Add shapes beneath selected ones

  1. #1
    Registered User
    Join Date
    02-17-2022
    Location
    poland
    MS-Off Ver
    365
    Posts
    4

    VBA - Add shapes beneath selected ones

    Hello all, I am trying to write a VBA Macro that creates a circle beneath each of the selected objects of a slide, with a radius 40% bigger than the side of each objects and centered to them. I cannot find the rotation center among the properties, how could I do? Thank you in advance

  2. #2
    Registered User
    Join Date
    02-17-2022
    Location
    poland
    MS-Off Ver
    365
    Posts
    4

    Re: VBA - Add shapes beneath selected ones

    So far I got this, but the newly created circle goes on top of the existing shape. QIth multiple shapes, everything gets aligned to the first selected objects, rather than to each of them.

    Please Login or Register  to view this content.

  3. #3
    Registered User
    Join Date
    02-17-2022
    Location
    poland
    MS-Off Ver
    365
    Posts
    4

    Re: VBA - Add shapes beneath selected ones

    Now I can have the shapes created, the selected ones go on op, but they are aligne4d to the first selected one, while the newly created circles should do this., relative to each object.

    Any advice on how to refer to the newly created circles, so i can point to them?



    Please Login or Register  to view this content.

  4. #4
    Registered User
    Join Date
    02-17-2022
    Location
    poland
    MS-Off Ver
    365
    Posts
    4

    Re: VBA - Add shapes beneath selected ones

    I managed to have it working, however the code is limited to 100 shapes, any advice on how to make it work for any number of shapes?

    Please Login or Register  to view this content.

  5. #5
    Forum Expert
    Join Date
    08-12-2012
    Location
    Sydney, Australia
    MS-Off Ver
    Excel 2010
    Posts
    5,636

    Re: VBA - Add shapes beneath selected ones

    Please Login or Register  to view this content.
    this is why it stops at 100

    Please Login or Register  to view this content.
    this should make shp go to amount of shapes you have on activewindow (which is the syntax you seem to be using)
    If you are satisfied with the solution(s) provided, please mark your thread as Solved.
    Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

+ 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. VBA to make all selected shapes transparent in PPT
    By dgibney in forum PowerPoint Programing
    Replies: 3
    Last Post: 09-20-2017, 03:43 AM
  2. excel 2013 customize context shapes and shapes group menu right click
    By Giuseppe77 in forum Excel Programming / VBA / Macros
    Replies: 0
    Last Post: 12-03-2016, 11:50 AM
  3. Replies: 1
    Last Post: 08-16-2016, 07:26 AM
  4. [SOLVED] Fill in missing values of one row with the rows beneath it if the rows beneath match
    By ilikeexcel in forum Excel Formulas & Functions
    Replies: 1
    Last Post: 12-20-2012, 02:40 PM
  5. [SOLVED] Move all selected shapes (images,textbox,etc) simultaneously
    By jonelamora in forum Excel Formulas & Functions
    Replies: 2
    Last Post: 06-25-2012, 04:54 AM
  6. How To Move Shapes From Another Shapes? (floating shapes)
    By MarcLev in forum Word Programming / VBA / Macros
    Replies: 2
    Last Post: 10-04-2009, 04:04 PM
  7. [SOLVED] VBA Help with changing shape color for selected shapes only
    By Nimrod in forum Excel Programming / VBA / Macros
    Replies: 8
    Last Post: 04-29-2005, 09:06 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