使用visio图中的vba测试visio图中网站的联通性，设置一个开始测试按钮，点击“开始测试”按钮开始测试，之后每个十秒自动检测一次，设置一个结束按钮，点击“结束测试”停止检测。

好的，这个问题需要编写一个VBA程序，主要涉及到Visio对象模型中的一些方法和属性。以下是一个基本的程序框架，可以实现你所要求的功能：

Private Sub btnStart_Click()
    ' 定义变量
    Dim shp As Visio.Shape
    Dim webURL As String
    Dim isOnline As Boolean
    
    ' 获取要测试的网站URL
    Set shp = ActivePage.Shapes("网站URL")
    webURL = shp.Text
    
    ' 开始测试
    isOnline = TestWebSite(webURL)
    If isOnline Then
        shp.Cells("FillForegnd").FormulaU = "RGB(0, 255, 0)" ' 绿色
    Else
        shp.Cells("FillForegnd").FormulaU = "RGB(255, 0, 0)" ' 红色
    End If
    
    ' 设置定时器，每10秒执行一次测试
    Application.OnTime Now + TimeValue("00:00:10"), "TestWebSiteTimer"
End Sub

Private Sub btnStop_Click()
    ' 停止定时器
    On Error Resume Next
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:10"), _
        Procedure:="TestWebSiteTimer", Schedule:=False
End Sub

Private Function TestWebSiteTimer()
    ' 定义变量
    Dim shp As Visio.Shape
    Dim webURL As String
    Dim isOnline As Boolean
    
    ' 获取要测试的网站URL
    Set shp = ActivePage.Shapes("网站URL")
    webURL = shp.Text
    
    ' 开始测试
    isOnline = TestWebSite(webURL)
    If isOnline Then
        shp.Cells("FillForegnd").FormulaU = "RGB(0, 255, 0)" ' 绿色
    Else
        shp.Cells("FillForegnd").FormulaU = "RGB(255, 0, 0)" ' 红色
    End If
    
    ' 设置下一次测试的定时器
    Application.OnTime Now + TimeValue("00:00:10"), "TestWebSiteTimer"
End Function

Private Function TestWebSite(webURL As String) As Boolean
    ' 使用VBA的XMLHTTP对象检测网站联通性
    Dim xhr As Object
    Set xhr = CreateObject("MSXML2.XMLHTTP")
    xhr.Open "GET", webURL, False
    xhr.Send
    If xhr.Status = 200 Then
        TestWebSite = True
    Else
        TestWebSite = False
    End If
    Set xhr = Nothing
End Function

上述代码中，`btnStart_Click`和`btnStop_Click`是开始和结束按钮的单击事件处理程序，分别用于启动和停止测试。`TestWebSiteTimer`是定时器事件处理程序，每10秒执行一次`TestWebSite`函数来检测网站联通性。`TestWebSite`函数使用`MSXML2.XMLHTTP`对象来发送HTTP请求并检查响应状态码。如果状态码为200，则表示网站正常联通，否则表示网站不可用。

你可以将上述代码复制到Visio的VBA编辑器中，然后添加两个按钮和一个文本框来测试网站的联通性。在文本框中输入网站URL，单击“开始测试”按钮即可开始测试。每10秒钟Visio会自动检测一次网站是否联通，并将结果显示在文本框旁边的形状上。如果你想停止测试，只需单击“停止测试”按钮即可。