|
テキストの書き込み |
- 01: 名前：vallsai投稿日：2006/01/30(月) 21:16
- 質問です。
フォーム上のテキストボックス内にテキストを入力し、
その後、ボタンをクリックすると、既存Visioファイルを開き、
ある決まった図形のテキストとして、そのテキストが書き込まれる。
というようなことはできるんでしょうか？
開くところまではいけるのですが、テキストの書き込みが上手くいきません。
方法をご存知の方がおられましたらどうかご教授お願いします。
- 02: 名前：yoda投稿日：2006/01/30(月) 22:12
- どのようになさったのか、明らかにしていただけますか？
- 03: 名前：vallsai投稿日：2006/01/30(月) 23:31
- yoda様
説明不足でした。すいません。
以下のようなコードをフォーム上のコマンドボタンに書きました。
（既存ファイルを開くところまで）
すると、選択していた図形のテキストにテキストボックスに打った文字が入るんですが、
その後に、自動で開いた既存ファイル上にある決まったIDの図形のテキストにも
その同じ文字が入力されるようにしたいのです・・・。
でも、同じように書いても”無効な識別子です”というエラーがでて上手くいきません。
どのようにしたらよいでしょうか？ご存知でしたらお願いします。
Private Sub CommandButton1_Click()
Dim selectO As Visio.Selection
Dim shapeO1 As Visio.shape
Dim Title As String
Set selectO = Visio.ActiveWindow.Selection
Set shapeO1 = selectO(1)
Title = Me.TextBox1
Dim vsoCharacters1 As Visio.Characters
Set vsoCharacters1 = Application.ActiveWindow.Page.Shapes.ItemFromID(shapeO1.ID).Characters
vsoCharacters1.Text = Title
Unload UserForm2
Dim RV As Variant
RV = Shell("***.vsd", 1)
End Sub
- 04: 名前：yoda投稿日：2006/01/31(火) 09:22
- 原因は多分、図形が選択されていないからでしょう。
このコードで試してみましたが、もんだいありませんでしたよ。
vsoCharacters1.Text = Title まではね。
|
|