D
Dan Ricker
I'm not sure select wrong when I copied the page, or if
this board decided not to send every thing, but anyway...
I had a TextArea with id="txtEventData" on the page above
the pivot table...
Pasting again...
<html>
<body>
<input type="button" value="Clear Event Data"
onclick="cmdClearEventData()">
<br>
<textarea rows="10" cols="80" id="txtEventData"></textarea>
<hr>
<OBJECT classid="CLSID:0002E552-0000-0000-C000-
000000000046" ID="PivotTable1"></OBJECT>
<Script Language="VBScript">
''' *******************************************
''' *******************************************
Sub cmdClearEventData()
txtEventData.value = vbNullString
End Sub
''' *******************************************
''' *******************************************
Sub PivotTable1_MouseWheel(Page, Count)
Dim szTmp
szTmp = "Page = " & CStr(Page) & ", Count = " & CStr
(Count)
If Len(txtEventData.value) = 0 Then
txtEventData.value = szTmp
Else
txtEventData.value = szTmp & vbCrLf &
txtEventData.value
End If
End Sub
</Script>
</body>
</html>
this board decided not to send every thing, but anyway...
I had a TextArea with id="txtEventData" on the page above
the pivot table...
Pasting again...
<html>
<body>
<input type="button" value="Clear Event Data"
onclick="cmdClearEventData()">
<br>
<textarea rows="10" cols="80" id="txtEventData"></textarea>
<hr>
<OBJECT classid="CLSID:0002E552-0000-0000-C000-
000000000046" ID="PivotTable1"></OBJECT>
<Script Language="VBScript">
''' *******************************************
''' *******************************************
Sub cmdClearEventData()
txtEventData.value = vbNullString
End Sub
''' *******************************************
''' *******************************************
Sub PivotTable1_MouseWheel(Page, Count)
Dim szTmp
szTmp = "Page = " & CStr(Page) & ", Count = " & CStr
(Count)
If Len(txtEventData.value) = 0 Then
txtEventData.value = szTmp
Else
txtEventData.value = szTmp & vbCrLf &
txtEventData.value
End If
End Sub
</Script>
</body>
</html>