computer/windows/VBA
の編集
http://siti.dip.jp/wiki/index.php?computer/windows/VBA
[
トップ
] [
編集
|
差分
|
バックアップ
|
添付
|
リロード
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
|
ログイン
]
-- 雛形とするページ --
bikefriday
books
BracketName
chemical
computer
computer/equation
computer/gromacs
computer/linux
computer/linux/apache2
computer/linux/cluster
computer/linux/emacs
computer/linux/FreeNAS
computer/linux/iptables
computer/linux/networking
computer/linux/ProFTPD
computer/linux/pukiwiki
computer/linux/RaspberryPi
computer/linux/service
computer/linux/torque
computer/programing
computer/programing/Eclipse
computer/programing/Python
computer/programing/python
computer/programing/Python/matplotlib
computer/programing/regular expression
computer/programing/vba
computer/programing/vmd
computer/windows
computer/windows/command prompt
computer/windows/ffmpeg
computer/windows/ImageJ
computer/windows/Inkscape
computer/windows/service
computer/windows/VBA
computer/windows/WebExpression
english
english/mail
english/P.R. response
english/あ
english/か
english/さ
FormattingRules
FrontPage
gnuplot
Help
InterWiki
InterWikiName
InterWikiSandBox
memo
memo/201902
memo/201903
memo/201904
memo/201905
memo/201907
memo/201911
memo/ai
memo/descri
memo/document
memo/life
memo/message
memo/procedure
memo/record
memo/work
memo/引っ越し
MenuBar
microserver
Notebook
PHP
PukiWiki
PukiWiki/1.4
PukiWiki/1.4/Manual
PukiWiki/1.4/Manual/Plugin
PukiWiki/1.4/Manual/Plugin/A-D
PukiWiki/1.4/Manual/Plugin/E-G
PukiWiki/1.4/Manual/Plugin/H-K
PukiWiki/1.4/Manual/Plugin/L-N
PukiWiki/1.4/Manual/Plugin/O-R
PukiWiki/1.4/Manual/Plugin/S-U
PukiWiki/1.4/Manual/Plugin/V-Z
RecentDeleted
SandBox
ST
testable
WikiEngines
WikiName
WikiWikiWeb
work
YukiWiki
#highlighter(VBScript){{ Sub GraphResize() '--------------------------------------- 'システム:グラフサイズ取得 '[変更履歴] '2015/10/31 T. Ono 新規作成 '--------------------------------------- a = 240 b = 180 If ActiveChart Is Nothing Then MsgBox ("グラフを選択して下さい") Exit Sub End If With ActiveChart.Parent .Width = a .Height = b End With End Sub }} #highlighter(VBScript){{ Sub Sample00() ' With Range("B7:E15") ActiveSheet.ChartObjects("グラフ 2").width = 300 ActiveSheet.ChartObjects("グラフ 2").height = 400 'End With End Sub Sub Sample01() With ActiveSheet.ChartObjects(1) .Name = "俺のグラフ1" MsgBox .Name & vbCrLf & _ .Chart.Name End With End Sub Sub Sample02() Dim Rng As Range Set Rng = Range("B8:E18") '--サイズを合わせるセル範囲 With ActiveSheet.ChartObjects(1) '--1つめのグラフに関して .Top = Rng.Top '--上端を合わせる .Left = Rng.Left '--左端を合わせる .width = Rng.width '--幅を合わせる .height = Rng.height '--高さを合わせる End With End Sub Sub Sample03() Charts(2).Activate With ActiveChart .Type = xlLine .HasTitle = True .ChartTitle.Text = "January Sales" End With End Sub Sub graph_reset() Dim ch As ChartObject If ActiveChart Is Nothing Then Exit Sub With ActiveChart With .Parent .width = 228 .height = 228 End With End With End Sub Sub sample04() If ActiveChart Is Nothing Then MsgBox ("グラフを選択して下さい") Exit Sub End If End Sub }} #highlighter(VBScript){{ Sub graph_area() With ActiveChart With .Parent .Width = 270 .Height = 230 End With With .PlotArea .Top = 0 .Left = 25 .Width = 230 .Height = 200 End With End With End Sub }}
タイムスタンプを変更しない
#highlighter(VBScript){{ Sub GraphResize() '--------------------------------------- 'システム:グラフサイズ取得 '[変更履歴] '2015/10/31 T. Ono 新規作成 '--------------------------------------- a = 240 b = 180 If ActiveChart Is Nothing Then MsgBox ("グラフを選択して下さい") Exit Sub End If With ActiveChart.Parent .Width = a .Height = b End With End Sub }} #highlighter(VBScript){{ Sub Sample00() ' With Range("B7:E15") ActiveSheet.ChartObjects("グラフ 2").width = 300 ActiveSheet.ChartObjects("グラフ 2").height = 400 'End With End Sub Sub Sample01() With ActiveSheet.ChartObjects(1) .Name = "俺のグラフ1" MsgBox .Name & vbCrLf & _ .Chart.Name End With End Sub Sub Sample02() Dim Rng As Range Set Rng = Range("B8:E18") '--サイズを合わせるセル範囲 With ActiveSheet.ChartObjects(1) '--1つめのグラフに関して .Top = Rng.Top '--上端を合わせる .Left = Rng.Left '--左端を合わせる .width = Rng.width '--幅を合わせる .height = Rng.height '--高さを合わせる End With End Sub Sub Sample03() Charts(2).Activate With ActiveChart .Type = xlLine .HasTitle = True .ChartTitle.Text = "January Sales" End With End Sub Sub graph_reset() Dim ch As ChartObject If ActiveChart Is Nothing Then Exit Sub With ActiveChart With .Parent .width = 228 .height = 228 End With End With End Sub Sub sample04() If ActiveChart Is Nothing Then MsgBox ("グラフを選択して下さい") Exit Sub End If End Sub }} #highlighter(VBScript){{ Sub graph_area() With ActiveChart With .Parent .Width = 270 .Height = 230 End With With .PlotArea .Top = 0 .Left = 25 .Width = 230 .Height = 200 End With End With End Sub }}
テキスト整形のルールを表示する