Método Event.SetFilterSRC (Visio)
Especifica uma matriz de intervalos de células e um valor True ou False que indica como filtrar eventos para cada intervalo de células.
Sintaxe
expression. SetFilterSRC( _SRCStream()_ )
Expressão Uma variável que representa um objeto Event .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SRCStream() | Obrigatório | Integer | Uma matriz de intervalos de célula e um valor True ou False especificando como filtrar eventos para cada intervalo. |
Valor de retorno
Nada
Comentários
Quando um objeto Event criado com o método AddAdvise é adicionado à coleção EventList de um objeto de origem, o comportamento padrão é que todas as ocorrências desse evento sejam passadas para o coletor de eventos. O método SetFilterSRC oferece uma forma de ignorar eventos selecionados baseados em um intervalo de células.
O parâmetro SRCStream() passado para SetFilterSRC é uma matriz definida da seguinte maneira:
O número de elementos na matriz é um múltiplo de 7:
Os primeiros três elementos descrevem a seção, a linha e a célula da célula inicial do intervalo.
Os três elementos seguintes descrevem a seção, a linha e a célula da célula final do intervalo.
O último elemento contém um valor True ou False indicando como filtrar eventos para o intervalo de células (True para escutar eventos de um intervalo de células; False para excluir eventos de um intervalo de células).
Para um evento passar com êxito por um filtro de intervalo de células, ele deve satisfazer os seguintes critérios:
Deve ser uma seção, linha, referência de célula válida.
Se todos os filtros forem True, o evento deverá corresponder a pelo menos um filtro.
Se todos os filtros forem False, o evento não deverá corresponder a nenhum filtro.
Se os filtros forem uma mistura de True e False, o evento deverá corresponder a pelo menos um filtro True e não deverá corresponder a nenhum filtro False.
Se não existirem intervalos True definidos na série, os eventos serão considerados True.
Por exemplo, se você quiser escutar quaisquer alterações na célula Valor da segunda linha na seção Dados de forma, use o seguinte:
Dim aFilterSRC(1 To (1 * 7)) As Integer
aFilterSRC(1) = visSectionProp
aFilterSRC(2) = visRowProp + 1
aFilterSRC(3) = visCustPropsValue
aFilterSRC(4) = visSectionProp
aFilterSRC(5) = visRowProp + 1
aFilterSRC(6) = visCustPropsValue
aFilterSRC(7) = True
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.