OLEテキストボックス
エクセルのシートに挿入したOLEのテキストボックスにアクセスするコードですが、引数をつけると動かなくなるものがあります。
下記はテキストボックスの文字をCharactersプロパティに引数StartとLengthを与えて判断するものですが（コード自体はサンプルの為無意味です）、StartとLengthをつけると2007ではエラーが返って来ます。
なので2007では直接引数を使っての操作ではなく
Shape.OLEFormat.Object.Characters.Text
の内容を一旦文字列変数に入れてからいろいろと操作すると良いでしょう。
以上、メモでした。
下記はテキストボックスの文字をCharactersプロパティに引数StartとLengthを与えて判断するものですが（コード自体はサンプルの為無意味です）、StartとLengthをつけると2007ではエラーが返って来ます。
Const X As Long = 1
Const Y As Long = 1
Dim Shape As Shape
For Each Shape In Sheet1.Shapes
If TypeName(Shape.OLEFormat.Object) = “TextBox” Then
‘// Arguments “Start” and “Length” return an error.
‘ If Len(Shape.OLEFormat.Object.Characters(Start:=X, Length:=Y).Text) > 0 Then
Shape.OLEFormat.Object.Characters.Text = “”
End If
End If
Next
なので2007では直接引数を使っての操作ではなく
Shape.OLEFormat.Object.Characters.Text
の内容を一旦文字列変数に入れてからいろいろと操作すると良いでしょう。
以上、メモでした。
MVP Roadshow
MVP Roadshowの大阪地区第一回が先週の金曜の夜に行われました。 活発な意見交換が終わった後に、夕食へと移動。アメリカ大陸&日本のリージョナルマネージャーのNestor氏も参加され、楽しいディナーになりました。（写真はネスター氏と）また参加メンバーのまっちゃだいふく氏のセキュリティブログもご紹介していただきました。私はセキュリティに疎いのですが、それ以外の話題もポストされているようなので気軽に立ち寄れそうです。Matcha’s Security Blog
