Excel 2013 on HP 900 Tablet

kckay

Board Regular
Joined
Nov 8, 2010
Messages
134
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.
 

Excel Facts

Can you AutoAverage in Excel?
There is a drop-down next to the AutoSum symbol. Open the drop-down to choose AVERAGE, COUNT, MAX, or MIN

kckay

Board Regular
Joined
Nov 8, 2010
Messages
134
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).
 

Forum statistics

Threads
1,136,354
Messages
5,675,291
Members
419,559
Latest member
BraytonM

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top