Journal of a guy who loves Excel

Not only about Excel, but also daily stuff to kill my boredom.

OLEテキストボックス

エクセルのシートに挿入したOLEのテキストボックスにアクセスするコードですが、引数をつけると動かなくなるものがあります。

下記はテキストボックスの文字を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

 | HOME | 

calendar

03 | 2007/04 | 05
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 - - - - -



recent comments




recent entries




categories




links




search




お小遣い稼ぎ!
スマホでお小遣い稼ぎ!
DTIブログポータルへ
このブログを通報
Report Abuse

利用規約

profile

Colo

Author:Colo

Masaru aka Colo- one of an ex-Microsoft MVP for Excel

WEB SITE



I'm Masaru from Kobe, Japan. I'm a computer system administrator for an equipment manufacturer. My line is operation AS400 server and Windows2008 server. I sometimes write VBA code for the company.

From 2004 to 2009, I had been nominated as a Microsoft Excel MVP, but now days, I have no opportunities using with excel in my daily life, so I decided to quit being an MVP. But I still love to use Excel.

1 Click Animalsへ!
Have a look at this article pls.

Our book
Our book

contributed article
contributed article

contributed article
contributed article

contributed article
contributed article


archive


rss feeds