Simple
Sand
Samples
プログラミング言語サンプル集
TOPへ
Hello World!(各言語のTOP)
(文字列)文字列を置換(初回マッチのみ)
(文字列)10進文字列->数値 変換
(文字列)16進文字列->数値 変換
(文字列)文字列の一部を取り出す
(文字列)文字列を分割する
(文字列)一文字毎に分割する
(連想配列)連想配列(辞書)を使う
(連想配列)連想配列(辞書)応用例
(テキスト)ファイル読み込み
(テキスト)ファイル書き込み
(テキスト)列挙した数の合計を求める
(ファイル)カレントディレクトリ取得
(ファイル)ディレクトリのファイル一覧
(日付時刻)現在の時刻を得る
(日付時刻)日付と時刻を得る
乱数を使う
(MsgBox)MsgBoxを使う
(Excel)シートを追加する(末尾)
(Excel)シートを追加する(先頭)
(Excel)セルに値を設定する
(Excel)セルの前景色を設定する
(Excel)セルの背景色を設定する
(Excel)罫線を引く
(Excel)罫線の色や太さを変更する
(Excel)図形作成

説明のないとってもシンプルなサンプルプログラム集
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からVBE(ALT+F11)を開き
    ↓    excel-shape.basをインポート(CTRL+M)
    ↓    VBEを閉じて(ALT+Q)、マクロ実行(ALT+F8)