Powerpoint VBA Harvey Balls -


i'm trying create harvey balls vba code in powerpoint 2010+. this, i'm inserting circle shape , pie 1 , combine them. works fine if i'm inserting 2 shapes ribbon , align , combine them, when i'm inserting shapes vba, result of combining them different , don't understand why.

so:

  • insert shapes ribbon -> align using ribbon -> combine using ribbon -> ok
  • insert shapes vba -> align using ribbon -> combine using ribbon -> wrong result

you can see in this video.

vba code inserting shapes (very basic) below.

activepresentation.slides(slide_num).shapes.addshape(msoshapeoval, 100, 100, 50, 50).select activepresentation.slides(slide_num).shapes.addshape(msoshapepie, 200, 100, 50, 50).select

help, please!

if absolute value of both adjustments of pie (the yellow diamonds) of following 0, 90, 180, 270 values combine behaves substract geometry operation. looks bug in combine geometry. instead, if set value of 90.01 expected behavior.

sub test1() dim shp1 shape dim shp2 shape set shp1 = activepresentation.slides(1).shapes.addshape(msoshapeoval, 100, 100, 50, 50) set shp2 = activepresentation.slides(1).shapes.addshape(msoshapepie, 100, 100, 50, 50) call activewindow.selection.sliderange(1).shapes.range(array( shp1.zorderposition, shp2.zorderposition)).mergeshapes(msomergecombine) end sub

sub test2() dim shp1 shape dim shp2 shape set shp1 = activepresentation.slides(1).shapes.addshape(msoshapeoval, 200, 100, 50, 50) set shp2 = activepresentation.slides(1).shapes.addshape(msoshapepie, 200, 100, 50, 50) shp2.adjustments(1) = shp2.adjustments(1) + 0.1 call activewindow.selection.sliderange(1).shapes.range(array(shp1.zorderposition, shp2.zorderposition)).mergeshapes(msomergecombine) end sub


Comments

Post a Comment

Popular posts from this blog

jquery - How do you format the date used in the popover widget title of FullCalendar? -

Image
in fullcalendar, how format date used in popover widget title when clicking '+n more'? code: <div class="fc-popover fc-more-popover"> <div class="fc-header fc-widget-header"> <span class="fc-close fc-icon fc-icon-x"></span> <span class="fc-title">tuesday, april 7</span> ... </div> ... </div> you use daypopoverformat that. determines date format of title of popover created eventlimitclick option. must date formatting string. default value "dddd, mmmm d" english , "ll" other languages.
Read more

Bubble Sort Manually a Linked List in Java -

Image
this first question here. trying manually sort linked list of integers in java , can not figure out wrong code. suggestions? don't error, still have output unordered. tried few different ways, nothing worked. appreciate if can me that. public class node { int data; node nextnode; public node(int data) { this.data = data; this.nextnode = null; } public int getdata() { return this.data; } } // node class public class datalinkedlist implements datainterface { private node head; private int size; public datalinkedlist(){ this.head = null; this.size = 0; } public void add(int data) { node node = new node(data); if (head == null) { head = node; } else { node currentnode = head; while(currentnode.nextnode != null) { currentnode = currentnode.nextnode; } currentnode.nextnode = node; ...
Read more

asp.net mvc - SSO between MVCForum and Umbraco7 -

i need integrate sso between mvcforum (forum of company) , umbraco7 (manages cms company). however struggling shared authentication work. tried several ways suggested on other threads still not running expected. here did: 1. in mvcforum (forum.mywebsite.com) 1.1. machine key in web.xml: <machinekey validationkey="the same key umbraco7" decryptionkey="the same key umbraco7" validation="sha1" decryption="aes" /> 1.2. authenticate forms in web.xml <forms name="my-sso-auth" protection="all" path="/" timeout="43200" domain="forum.mywebsite.com" loginurl="/members/logon" enablecrossappredirects="true" /> 2. in umbraco7 (news.mywebsite.com) 2.1. machine key in web.xml: <machinekey validationkey="the same key mvcforum" decryptionkey="the same key mvcforum" validation="sha1" decryption="aes" /> 2.2. a...
Read more