Type Mismatch Runtime Error

Hi all,

I seem to be getting a type mismatch error or the following line:

Visio.Application.Windows("Document.vsd").Activate

I am running this line in excel, trying to extract data from visio.

I thought that a type mismatch error would mean that the name of the document is wrong. Is this right? Could it mean something else?

Any advice would be appreciated.

Ah right. Excel. The code i'm trying to run is:

Sub UpdateOptions()

    Dim VisioApp As Object
    Dim vsoPage As Visio.Page

    Set VisioApp = GetObject(, "Visio.Application")

    Visio.Application.Windows("Document.vsd").Activate

    Set vsoPage = VisioApp.ActiveDocument.Pages("Model")
       
    If vsoPage.Layers("Option02") = conVisible Then
            excelapp.Workbook("Spreadsheet").Worksheets("Sheet1").Range("E8").Value = "Yes"
    End If
    

End Sub

So the code should look at the Visio document thats already open, determine if a layer is visible or not, and change the value in a cell. When I step through, I get the error on the line in my OP.

I've taken it out and it removes the error. But now nothing happens at all. Any ideas why?

Thanks for your help so far!

Yep. It highlights each row then moves on to the next without doing anything.

Actually, is doesn't highlight the if result:

excelapp.Workbook("Spreadsheet").Worksheets("Sheet1").Range("E8").Value = "Yes"

Does this mean the if condition hasn't been met, and so won't run this line?

It's trying to look at an open visio document and see if a layer (in this case Option02) is visible.

Done!

I was using the wrong property for the layers, but had no idea which to use. I finally managed to find it.

The final code is as follows:

Sub UpdateOptions()

    Dim VisioApp As Object
    Dim vsoPage As Visio.Page
    Dim vsoLayer As Visio.Layers
    
    Set VisioApp = GetObject(, "Visio.Application")

    Set vsoPage = VisioApp.ActiveDocument.Pages("Model")
       
    If vsoPage.Layers("Option02").CellsC(visLayerVisible) = "1" Then
        Range("E8").Value = "Yes"
    End If
    

End Sub

Thanks for all the help Norie!