Excel 2013 on HP 900 Tablet

[kckay]

I am testing an HP 900 ElitePad tablet for possible field use.

This tablet is running Win8 and Excel 2013.

This tablet will be used in the field for inspections.

The inspection workbook consists of numerous worksheets.

I would like to add a couple of feature to these worksheets to take advantage of features available on a tablet and to reduce the number of hardware items that we take into the field.

1) I would like the on-screen keyboard to activate whenever a data field is 'double-clicked'. Additionally, I would like the keyboard to default to 'free-form' pen entry if possible. Is there a way to code a blanket Worksheet_BeforeDoubleClick macro that will work an all worksheets or do I need to copy the macro to each worksheet?

2) I would like to activate the built-in web cam from an Excel button. If possible, intercepting the picture before it goes to the Pictures folder would be optimal, but not absolutely necessary. This button would be added to each worksheet. I have not been able to find a command or shell command to open the camera.

3) I am looking at hanging a BlueTooth GPS unit on the tablet and would be intercepting the data at the press of an Excel button to populate Lat/Long information on the worksheet. This button would be added to each worksheet. A benefit of this and 2) above would be the capability to geo-code the picture and create a .kmz file that is attached to the worksheet and using Picasa, available to all on the cloud.

Thoughts? Ideas?

Thank you for all your assistance you have provided during my VBA and Excel journey.

 

[kckay]

Been trying to solve 1) with:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target as Range, _
Cancel as Boolean)

Msgbox("In ThisWorkbook")

If Application.Version > 12.0 Then
Dim Apath As String
Apath = "C:\Windows\system32\osk.exe"
FollowHyperlink Apath
End If

End Sub


The msgbox is for testing only.

The code is in ThisWorkbook module.

This code does not execute (msgbox does not appear).