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

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

Excel/VBA > (Excel)図形を描く

excel-shape.bas

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 Sub test()
	With ActiveSheet.Shapes
	Set r = Range("B5:D2")
	   
	Set tb = .AddTextbox(msoTextOrientationHorizontal, _
		r.Left, r.Top, r.Width, r.Height)
	tb.Name = "TEXTBOX"
	tb.TextFrame.Characters.Text = "ABCDEF"
	tb.TextFrame.Characters.Font.Size = 30
	    
	Set Ln = .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 = msoLineDash
	Ln.Line.EndArrowheadstyle = msoArrowheadTriangle
	
	Set Sh = .AddShape(msoShapeOval, _
		r.Left, r.Top, r.Width, r.Height)
	Sh.Name = "OVAL"
	Sh.Fill.Visible = false

	Set r = Range("B6:D9")
	.AddTextEffect PresetTextEffect:=msoTextEffect12, _
	Text:="SIMPLE SAMPLE", FontName:="Arial", FontSize:=32, _
	FontBold:=True, FontItalic:=True, Left:=r.Left, Top:=r.Top
	
	End With
End Sub

Excel/VBA > (Excel)図形を描く

excel-shape.bas

↓ ExcelからVBE(ALT+F11)を開き

↓ excel-shape.basをインポート(CTRL+M)

↓ VBEを閉じて(ALT+Q)、マクロ実行(ALT+F8)