説明のないとってもシンプルなサンプルプログラム集

COBOL	awk	C言語	D言語	GO言語	Lua	Vim
bash	Perl	Gauche	Clojure	CLISP	EmacsLisp	VimScript
tcsh	Ruby	Groovy	Java	C#	VBScript	JavaScript
Io言語	Python	Erlang	Scala	VB.NET	Excel/VBA	PHP
Tcl	Haskell		OCaml	PowerShell	Windows	Unix/Linux

VBS > (Excel)図形を描く

excel-shape.vbs

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 With CreateObject("Excel.Application")
	.Visible = True
	.Workbooks.Add
	With .Sheets(1)
		Set r = .Range("B5:D2")
		   
		Set tb = _
		.Shapes.AddTextbox(1, r.Left, r.Top, r.Width, r.Height)
		tb.Name = "TEXTBOX"
		tb.TextFrame.Characters.Text = "ABCDEF"
		tb.TextFrame.Characters.Font.Size = 30
		    
		Set Ln = .Shapes.AddLine( _
			r.Left, r.Top, r.Left + r.Width, r.Top + r.Height)
		Ln.Name = "LINE"
		Ln.Line.ForeColor.RGB = RGB(255, 0, 0)
		Ln.Line.Weight = 3
		Ln.Line.DashStyle = 4 'msoLineDash
		Ln.Line.EndArrowheadstyle = 2 'msoArrowheadTriangle
		
		Set Sh = .Shapes.AddShape(9, r.Left, r.Top, r.Width, r.Height)
			'9=msoShapeOval
		Sh.Name = "OVAL"
		Sh.Fill.Visible = false

		Set r = .Range("B6:D9")
		.Shapes.AddTextEffect 12, "SIMPLE SAMPLE", _
		"Arial", 32, True, True, r.Left, r.Top
	
	End With
End With