furyutei/0.README.md

## 0.README.md

      
    Raw
  

              0.README.md
            
          
    [VBA] VBEThemeColorToolを用いたVisual Basic Editor(VBE)のコードの表示色設定サンプル

VBEThemeColorTool: VBEThemeColorEditor用のテーマファイルを適用するためのコマンドラインツールの設定例
自分が使用しているVisual Basic Editorのコードの表示色設定方法


※サンプル表示例はこちらの Kou@@LoverExcel さんのツイートを参照
設定方法


VBEThemeColorToolの最新版ZIPを適当なフォルダにダウンロードして解凍
VBEThemeColorTool-master\dist直下にlogフォルダ作成
CallUpdateVBEThemeColor.vbsをVBEThemeColorTool-master\dist下に保存
使用しているMicrosoft Officeの版(32ビットまたは64ビット)にあわせて、32ビット用バッチファイル(UpdateVBEThemeColor_32bit.bat)もしくは64ビット用バッチファイル(UpdateVBEThemeColor_64bit.bat)のいずれかをVBEThemeColorTool-master\dist下に「UpdateVBEThemeColor.bat」というファイル名で保存
(Microsoft Officeアプリをすべて終了した状態で)CallUpdateVBEThemeColor.vbsをダブルクリックして実行

※VBE7.DLLファイルにパッチを当てているが、Officeのアップデートにより標準のファイルに戻されてしまうことがあるため、タスクスケジューラで定期的にCallUpdateVBEThemeColor.vbsを呼び出すことを推奨（タスクスケジューラの登録方法はこちらの記事などを参照のこと）

  
## CallUpdateVBEThemeColor.vbs
Option Explicit

Const BatFilename = "UpdateVBEThemeColor.bat"

Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim wsh: Set wsh = WScript.CreateObject("WSCript.shell")
Dim BatFilePath:  BatFilePath = fso.BuildPath(fso.getParentFolderName(WScript.ScriptFullName), BatFilename)
wsh.Run BatFilePath, 7, True

## UpdateVBEThemeColor_32bit.bat
@echo off
pushd "%~dp0"

setlocal

set VBE7DLL="C:\Program Files (x86)\Microsoft Office\root\vfs\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA7.1\VBE7.DLL"
set ThemeXml=".\Themes\VS2017 Dark.xml"
set ForeColors="14 1 12 9 5 8 2 9 5 5"
set BackColors="1 13 1 4 10 1 1 1 1 6"

echo %date% %time%>> .\log\UpdateVBEThemeColor.log
echo ---------------------->> .\log\UpdateVBEThemeColor.log
.\vbetctool -l %VBE7DLL% -t %ThemeXml% -f %ForeColors% -b %BackColors% -V >> .\log\UpdateVBEThemeColor.log 2>&1

popd

## UpdateVBEThemeColor_64bit.bat
@echo off
pushd "%~dp0"

setlocal
set VBE7DLL="C:\Program Files\Microsoft Office\root\vfs\ProgramFilesCommonX64\Microsoft Shared\VBA\VBA7.1\VBE7.DLL"
set ThemeXml=".\Themes\VS2017 Dark.xml"
set ForeColors="14 1 12 9 5 8 2 9 5 5"
set BackColors="1 13 1 4 10 1 1 1 1 6"

echo %date% %time%>> .\log\UpdateVBEThemeColor.log
echo ---------------------->> .\log\UpdateVBEThemeColor.log
.\vbetctool -l %VBE7DLL% -t %ThemeXml% -f %ForeColors% -b %BackColors% -V >> .\log\UpdateVBEThemeColor.log 2>&1

popd
	Option Explicit

	Const BatFilename = "UpdateVBEThemeColor.bat"

	Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
	Dim wsh: Set wsh = WScript.CreateObject("WSCript.shell")
	Dim BatFilePath: BatFilePath = fso.BuildPath(fso.getParentFolderName(WScript.ScriptFullName), BatFilename)
	wsh.Run BatFilePath, 7, True
	@echo off
	pushd "%~dp0"

	setlocal

	set VBE7DLL="C:\Program Files (x86)\Microsoft Office\root\vfs\ProgramFilesCommonX86\Microsoft Shared\VBA\VBA7.1\VBE7.DLL"
	set ThemeXml=".\Themes\VS2017 Dark.xml"
	set ForeColors="14 1 12 9 5 8 2 9 5 5"
	set BackColors="1 13 1 4 10 1 1 1 1 6"

	echo %date% %time%>> .\log\UpdateVBEThemeColor.log
	echo ---------------------->> .\log\UpdateVBEThemeColor.log
	.\vbetctool -l %VBE7DLL% -t %ThemeXml% -f %ForeColors% -b %BackColors% -V >> .\log\UpdateVBEThemeColor.log 2>&1

	popd