excelの横書きテキストボックスでime onの強制化

前提・実現したいこと

excelの横書きテキストボックスでimeを強制的にONにしたいです。

ここに問題に対して試したことを記載してください。

ActiveSheet.Shapes("横書きテキストボックス")には、IMEModeが無いため、設定
できませんでした。
また、"横書きテキストボックス"のクリックイベントを拾って、事前にIMEをONにしよう
と思いましたが、onActionにうまく組み込めませんでした。

補足情報（FW/ツールのバージョンなど）

windows7 32bit Pro
excel 2013

行動規範の内容に同意します

回答1件

ベストアンサー

かなり強引な方法ですが、SendKeysを使用した例です。

vba
1'図形の「マクロの登録」に設定する前提の記述
2Sub IMEtoZenkakuForXlShapeOnAction()
3    
4    'クリックされた図形を選択する（onActionだと選択が外れてしまうため）
5    If Not TypeOf ActiveSheet Is Excel.Worksheet Then Exit Sub
6    Dim ws As Excel.Worksheet
7    Set ws = ActiveSheet
8    
9    If VBA.VarType(Application.Caller) <> vbString Then Exit Sub
10    Dim clickedShpName As String
11    clickedShpName = Application.Caller
12    
13    Dim clickedShp As Excel.Shape
14    Set clickedShp = ws.Shapes.Item(clickedShpName)
15    
16    clickedShp.Select
17    
18    '全角半角を切り替える
19    Const KeyOf半角全角 = "{kanji}" 'http://q.hatena.ne.jp/1279785772
20    If VBA.IMEStatus() = vbIMEOff Then
21        Call VBA.SendKeys(KeyOf半角全角, True)
22    End If
23    
24End Sub

（VBA）VBスクリプトを利用して作業を自動化しているのですが、S… - 人力検索はてな

上記のサイトからSendKeysを使用して全角・半角の変更ができることがわかります。
上記のコードの下半分です。

Excelの図形のOnActionは実行時に図形の選択が外れてしまうため、図形を選択し直すのがコードの上半分になります。

また、VBAのSendKeysは実行時にNumLockなどが外れっぱなしになってしまうことがあります（環境依存）。

もし発生するようならVBA.SendKeysを以下のプロシージャ呼び出しに変更してください。

vba
1'VBA.SendKeys使用時にNumLockなどが外れっぱなしなるようならこちらに置き換え
2Sub WshSendKeys(iKeyStroke As String, Optional iWait As Boolean)
3    Dim wsShell As Object
4    Set wsShell = VBA.CreateObject("WScript.Shell")
5    Call wsShell.SendKeys(keyStroke, Wait)
6End Sub