Macro created by Jeff Handke (MA-Share User: JSHDesigns) 4/24/19 SetVar $form = (What Form #?) Prompts User to Pick a Form Number Store Form $form Creates the Form Label Form $form ("Form Label?") Prompts User to Label the Form Store Form $form.1 Thru $form.3 Creates 3 New Graphs in the Form Delete Form $form.1 Deletes the first default graph created Label Form $form.1 "Red" Labels first graph Red Assign Form $form.1 /Color = 255 Colors first graph Red Delete Form $form.1.1 Thru $form.1.2 Deletes the first two default points in the first graph Label Form $form.2 "Green" Labels second graph Green Assign Form $form.2 /Color = 65280 Colors second graph Green Delete Form $form.2.1 Thru $form.2.2 Deletes the first two default points in the second graph Label Form $form.3 "Blue" Labels third graph Blue Assign Form $form.3 /Color = 16711680 Colors third graph Blue Delete Form $form.3.1 Thru $form.3.2 Deletes the first two default points in the third graph SetVar $coloramount = (How Many Colors? 3 or 4?) Prompts User how many colors in the form, 3 or 4 [$coloramount == 3] Store Form $form.1.1 Thru $form.1.6 + $form.2.1 Thru $form.2.6 + $form.3.1 Thru $form.3.6 Creates six points on all 3 graphs if 3 color form [$coloramount == 4] Store Form $form.1.1 Thru $form.1.8 + $form.2.1 Thru $form.2.8 + $form.3.1 Thru $form.3.8 Creates eight points on all 3 graphs if 4 color form SetVar $colorinfo = (Red Percentage Value in first color?) Prompts user for Red Value of first color (in percentage) Assign Form $form.1.2 + $form.1.3 /y= $colorinfo Assigns Red Value of first color to graph SetVar $colorinfo = (Green Percentage Value in first color?) Prompts user for Green Value of first color (in percentage) Assign Form $form.2.2 + $form.2.3 /y= $colorinfo Assigns Green Value of first color to graph SetVar $colorinfo = (Blue Percentage Value in first color?) Prompts user for Blue Value of first color (in percentage) Assign Form $form.3.2 + $form.3.3 /y= $colorinfo Assigns Blue Value of first color to graph SetVar $colorinfo = (Red Percentage Value in second color?) Prompts user for Red Value of second color (in percentage) Assign Form $form.1.4 + $form.1.5 /y= $colorinfo Assigns Red Value of second color to graph SetVar $colorinfo = (Green Percentage Value in second color?) Prompts user for Green Value of second color (in percentage) Assign Form $form.2.4 + $form.2.5 /y= $colorinfo Assigns Green Value of second color to graph SetVar $colorinfo = (Blue Percentage Value in second color?) Prompts user for Blue Value of second color (in percentage) Assign Form $form.3.4 + $form.3.5 /y= $colorinfo Assigns Blue Value of second color to graph [$coloramount == 3] SetVar $colorinfo = (Red Percentage Value in third color?) Prompts user for Red Value of third color (in percentage) [$coloramount == 3] Assign Form $form.1.1 + $form.1.6 /y= $colorinfo Assigns Red Value of third color to graph [$coloramount == 3] SetVar $colorinfo = (Green Percentage Value in third color?) Prompts user for Green Value of third color (in percentage) [$coloramount == 3] Assign Form $form.2.1 + $form.2.6 /y= $colorinfo Assigns Green Value of third color to graph [$coloramount == 3] SetVar $colorinfo = (Blue Percentage Value in third color?) Prompts user for Blue Value of third color (in percentage) [$coloramount == 3] Assign Form $form.3.1 + $form.3.6 /y= $colorinfo Assigns Blue Value of third color to graph [$coloramount == 4] SetVar $colorinfo = (Red Percentage Value in third color?) Prompts user for Red Value of third color (in percentage) [$coloramount == 4] Assign Form $form.1.6 + $form.1.7 /y= $colorinfo Assigns Red Value of third color to graph [$coloramount == 4] SetVar $colorinfo = (Green Percentage Value in third color?) Prompts user for Green Value of third color (in percentage) [$coloramount == 4] Assign Form $form.2.6 + $form.2.7 /y= $colorinfo Assigns Green Value of third color to graph [$coloramount == 4] SetVar $colorinfo = (Blue Percentage Value in third color?) Prompts user for Blue Value of third color (in percentage) [$coloramount == 4] Assign Form $form.3.6 + $form.3.7 /y= $colorinfo Assigns Blue Value of third color to graph [$coloramount == 4] SetVar $colorinfo = (Red Percentage Value in fourth color?) Prompts user for Red Value of fourth color (in percentage) if 4 color [$coloramount == 4] Assign Form $form.1.1 + $form.1.8 /y= $colorinfo Assigns Red Value of fourth color to graph if 4 color [$coloramount == 4] SetVar $colorinfo = (Green Percentage Value in fourth color?) Prompts user for Green Value of fourth color (in percentage) if 4 color [$coloramount == 4] Assign Form $form.2.1 + $form.2.8 /y= $colorinfo Assigns Green Value of fourth color to graph if 4 color [$coloramount == 4] SetVar $colorinfo = (Blue Percentage Value in fourth color?) Prompts user for Blue Value of fourth color (in percentage) if 4 color [$coloramount == 4] Assign Form $form.3.1 + $form.3.8 /y= $colorinfo Assigns Blue Value of fourth color to graph if 4 color SetVar $formtype = ("1=Snap or 2=Xfade between colors?") Prompts User if form should snap or fade between colors [$formtype == 1] AddVar $coloramount = 1 Logic to distinguish 3 Color Fade, 3 Color Snap, 4 Color Fade, 4 Color Snap [$formtype == 2] AddVar $coloramount = 3 Logic to distinguish 3 Color Fade, 3 Color Snap, 4 Color Fade, 4 Color Snap [$coloramount == 6] Assign Form $form.1.1 + $form.2.1 + $form.3.1 /x= 0 Assigns X Value to first point of all 3 graphs if 4 color form [$coloramount == 6] Assign Form $form.1.2 + $form.2.2 + $form.3.2 /x= 16.67 Assigns X Value to second point of all 3 graphs if 4 color form [$coloramount == 6] Assign Form $form.1.3 + $form.2.3 + $form.3.3 /x= 33.33 Assigns X Value to third point of all 3 graphs if 4 color form [$coloramount == 6] Assign Form $form.1.4 + $form.2.4 + $form.3.4 /x= 50 Assigns X Value to fourth point of all 3 graphs if 4 color form [$coloramount == 6] Assign Form $form.1.5 + $form.2.5 + $form.3.5 /x= 66.67 Assigns X Value to fifth point of all 3 graphs if 4 color form [$coloramount == 6] Assign Form $form.1.6 + $form.2.6 + $form.3.6 /x= 83.33 Assigns X Value to sixth point of all 3 graphs if 4 color form [$coloramount == 4] Assign Form $form.1.1 + $form.2.1 + $form.3.1 /x= 0 Assigns X Value to first point of all 3 graphs if 4 color form [$coloramount == 4] Assign Form $form.1.2 + $form.2.2 + $form.3.2 /x= 0.01 Assigns X Value to second point of all 3 graphs if 4 color form [$coloramount == 4] Assign Form $form.1.3 + $form.2.3 + $form.3.3 /x= 33.33 Assigns X Value to third point of all 3 graphs if 4 color form [$coloramount == 4] Assign Form $form.1.4 + $form.2.4 + $form.3.4 /x= 33.34 Assigns X Value to fourth point of all 3 graphs if 4 color form [$coloramount == 4] Assign Form $form.1.5 + $form.2.5 + $form.3.5 /x= 66.67 Assigns X Value to fifth point of all 3 graphs if 4 color form [$coloramount == 4] Assign Form $form.1.6 + $form.2.6 + $form.3.6 /x= 66.68 Assigns X Value to sixth point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.1 + $form.2.1 + $form.3.1 /x= 0 Assigns X Value to first point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.2 + $form.2.2 + $form.3.2 /x= 12.5 Assigns X Value to second point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.3 + $form.2.3 + $form.3.3 /x= 25 Assigns X Value to third point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.4 + $form.2.4 + $form.3.4 /x= 37.5 Assigns X Value to fourth point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.5 + $form.2.5 + $form.3.5 /x= 50 Assigns X Value to fifth point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.6 + $form.2.6 + $form.3.6 /x= 62.5 Assigns X Value to sixth point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.7 + $form.2.7 + $form.3.7 /x= 75 Assigns X Value to seventh point of all 3 graphs if 4 color form [$coloramount == 7] Assign Form $form.1.8 + $form.2.8 + $form.3.8 /x= 87.50 Assigns X Value to eighth point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.1 + $form.2.1 + $form.3.1 /x= 0 Assigns X Value to first point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.2 + $form.2.2 + $form.3.2 /x= 0.01 Assigns X Value to second point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.3 + $form.2.3 + $form.3.3 /x= 25 Assigns X Value to third point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.4 + $form.2.4 + $form.3.4 /x= 25.01 Assigns X Value to fourth point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.5 + $form.2.5 + $form.3.5 /x= 50 Assigns X Value to fifth point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.6 + $form.2.6 + $form.3.6 /x= 50.01 Assigns X Value to sixth point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.7 + $form.2.7 + $form.3.7 /x= 75 Assigns X Value to seventh point of all 3 graphs if 4 color form [$coloramount == 5] Assign Form $form.1.8 + $form.2.8 + $form.3.8 /x= 75.01 Assigns X Value to eighth point of all 3 graphs if 4 color form SetVar $form = ; SetVar $colorinfo = ; SetVar $formtype = ; SetVar $coloramount = Removes all created variables from this macro