%let name=bub2;
filename odsout '.';

data a;
length color $ 8;
input x y value;
cards;
1.0 1.0 .65
2.0 0.9 0.3
1.4 2.3 .65
2.2 1.6 0.3
;
run;

data a; set a;
length html $500;
 html='title='||quote( 
  'X: '|| trim(left(x)) ||'0D'x||
  'Y: '|| trim(left(y)) ||'0D'x||
  'Value: '|| trim(left(value)) ||'0D'x||
  'Series: '|| trim(left(series))  
 )
 ||' '||
 'href="surf1.htm"';
run;


/* The dev=gif gplot bubble plot does not support 3d bubbles,
   but the dev=activex does - therefore using dev=actximg, which
   does a static snapshot of the activex plot, which provides 
   something similar to dev=gif functionality. */
goptions device=actximg;
goptions xpixels=720 ypixels=600;
goptions noborder;
 
ODS LISTING CLOSE;
ODS HTML path=odsout body="&name..htm" (title="SAS/Graph gplot dev=actximg 3D Bubble Plot") style=minimal;

goptions gunit=pct htitle=6 ftitle="albany amt/bold" htext=4.25 ftext="albany amt/bold";

axis1 label=(a=90 'Y Axis') offset=(0,0) order=(0 to 3 by 1) minor=(number=1);
axis2 label=('X Axis') offset=(0,0) order=(0 to 3 by 1) minor=(number=1);

symbol i=none v=dot;

title1 h=.5in f="arial" link="surf1.htm" "Bubble Plot (3D)";

proc gplot data=a; 
bubble3d y*x=value / 
 bcolor=cx9999ff
 cframe=white
 bsize=35  /* multiplier for the 'value' */
 autovref autohref cvref=gray chref=gray
 vaxis=axis1
/* 
the html= option is not supported in bubble charts - see defect/suggestion S0171805 
(this will probably change in v9.3)
*/
/* Note that since this is activex, I do get the automatic activex html charttips,
   but I can't customize the text using html= option, and I can't add my href tags. */
/* html=html */
 haxis=axis2
 des="" name="&name";  
run;

quit;
ODS HTML CLOSE;
ODS LISTING;