http://oshiete1.goo.ne.jp/kotaeru.php3?q=805336
の続きというか、同じことなのですが、
以下のJavaScriptで、子ウィンドウが開かれるのですが、この際に開いた親ウィンドウを閉じたいのですが、普通に閉じると警告が出てしまいます。
警告なしで、子ウィンドウを開き、親ウィンドウを閉じる方法があれば、教えてください。
<script language="JavaScript"><!--
function MenuWindow(){
var bname = navigator.appName;
var bversion = navigator.appVersion;
var spchr = ";";
var bverS = bversion.split(spchr);
var blsr = bverS[1];
var spchr = " ";
var btype = blsr.split(spchr);
var bcat = btype[1], bver = btype[2];
if ((bcat.indexOf("MSIE")<0)||(bver<5.0)) {
res = window.alert("本プログラムは Internet Explore 5.0 以降の"+
"ブラウザ以外では動作しません。");
window.close();
} else {
//location.href="menu.html";
var indexW;
var swidth=screen.availWidth;
var sheight=screen.availHeight;
var wwidth=swidth*1.0;
var leftpos=(swidth-wwidth);
var wheight=sheight*1.0;
var toppos=(sheight-wheight);
window.resizeTo(wwidth,wheight);
window.moveTo(leftpos,toppos);
window.focus();
indexW = window.open("menu.html","",'resizable=yes,top=0,left=0');
indexW.resizeTo(swidth, sheight);
//location.href="#";
}
return true;
}
//--></script>
</head>
<body onLoad="MenuWindow()">
</body>
以下のＶＢＡを実行するとテキストボックスの"あ"という文字で円を描くことができます。
Sub test1()
pai = 3.14159
r = 100
Worksheets("sheet1").Activate
For s = 0 To 360 Step 15
rd = s / 180 * pai
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
200 + r * Sin(rd), 50 + r - r * Cos(rd), 20, 20).Select
Selection.Characters.Text = "あ"
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Next s
End Sub
この円の半分の半径の円を元の円とドーナツ型(◎)になるように描くにはどのようなスクリプトにすればいいのでしょうか？
以下のＶＢＡを実行するとテキストボックスの"あ"という文字で円を描くことができます。
Sub test1()
pai = 3.14159
r = 100
Worksheets("sheet1").Activate
For s = 0 To 360 Step 15
rd = s / 180 * pai
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
200 + r * Sin(rd), 50 + r - r * Cos(rd), 20, 20).Select
Selection.Characters.Text = "あ"
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Next s
End Sub
この円の半分の半径の円を元の円とドーナツ型(◎)になるように描くにはどのようなスクリプトにすればいいのでしょうか？
