visio textbox resize

[SammyB]

yeah, but only to the replacement text.

Well then, I would have a sReplace1 and an sReplace2 or if there are a variable number of replacement rows, have an array of replacement text.

[joemo2003]

Well then, I would have a sReplace1 and an sReplace2 or if there are a variable number of replacement rows, have an array of replacement text.

but how to break the replacement text to sReplace1, sReplace2?

[SammyB]

but how to break the replacement text to sReplace1, sReplace2?

You already have it that way in Excel. When you are getting it from Excel, don't concatinate the replacement rows together.

[joemo2003]

You already have it that way in Excel. When you are getting it from Excel, don't concatinate the replacement rows together.

I thought about that before, but look at my code,

'ws1 is sheet 1, ws2 is sheet 2
'iRow=ws1.Cells(j, 5).value
sReplacement = sReplacement &ws1.Cells(j, 6).Text _
                    & ws2.Cells(iRow, i).Text & " " & ws.Cells(j, 7).Text & Chr(10)

how can I separate the row?

[joemo2003]

i think i can just not use the loop but write it out one row by one row for the replacemet text.
Another question, how to set multiply vsDoc as active document? So i can input text to multiply drawing.

[joemo2003]

i think i can just not use the loop but write it out one row by one row for the replacemet text.
Another question, how to set multiply vsDoc as active document? So i can input text to multiply drawing.

got the row format slove, but still cannot figure out how to input to multiply file.

[SammyB]

got the row format slove, but still cannot figure out how to input to multiply file.

multiply file? :confused:
Go slower and give more details

[joemo2003]

multiply file? :confused:
Go slower and give more details

In excel have three button, two button open two visio drawing directly, they look like:

Set vsDoc = vsDocs.Open(C:\folder\file#.vsd)

and third button use to input the text to those two drawing, but it only can input text to the last opened drawing, not both. I try use for loop

for each vsdoc in vsapp.documents
...
next vsdoc

but it still input text to only one drawing.

[SammyB]

In excel have three button, two button open two visio drawing directly, they look like:

Set vsDoc = vsDocs.Open(C:\folder\file#.vsd)

and third button use to input the text to those two drawing, but it only can input text to the last opened drawing, not both. I try use for loop

for each vsdoc in vsapp.documents
...
next vsdoc

but it still input text to only one drawing.

Well, you must have two Visio Applications. In the button code, you need to check the global, vsApp. If vsApp Is Nothing, then you start Visio, otherwise, you just use vsApp. But, make sure that vsApp is only defined in one place: in the Code module (Module1).

[joemo2003]

Well, you must have two Visio Applications. In the button code, you need to check the global, vsApp. If vsApp Is Nothing, then you start Visio, otherwise, you just use vsApp. But, make sure that vsApp is only defined in one place: in the Code module (Module1).

The two visio application already open before press the input text button. Should I check if vsApp is Nothing in the input text button? but it is already open, it cannot open again.

[joemo2003]

The two visio application already open before press the input text button. Should I check if vsApp is Nothing in the input text button? but it is already open, it cannot open again.

Never Mind. I don't need to input to multiple application.