KoMaDo   VISIO SQUARE : VB/VBA  ■ Headline ■ HOME    

VB/VBAトップへ ▼カッ飛び最後 

  カスタムプロパティのユーザ定義セルに値を書き込むには。

01: 名前:TK投稿日:2007/06/27(水) 18:50
宜しくお願い致します。VBA一年目のTKです。
カスタムプロパティにユーザ定義セル(例:Prop.IP)を作成し、
そのValue値をVBAから変更しようと考えております。
ですが、下記のコードを試したのですが、上手く行きません。

Set vsoCell=vsoShape.Cells("Prop.AssingVlan.Value")
vsoCell.FormulaForceU="AAA"

恐縮ですが、御教授お願い致します。
環境:Visio2003 SP2

02: 名前:yoda投稿日:2007/06/27(水) 20:11
テキストとして書き込むには、ダブルコーテーションにする必要があります。
シェイプシートのセルに書かれたときに、コーテーションマークで、
囲われている必要があるためです。
そのためには、shp.Cells("Scratch.A1").FormulaU = """A"""とします。


VB/VBAトップへ ▲カッ飛び先頭