Friday, November 27, 2020

VBA Excel to Double Click change to checkmark or x

 Note that to do this, you need to set the font of the affected cells to Winding 2 first:


1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(79) Then
            ActiveCell.ClearContents
            ActiveCell.Value = ChrW(80)
        Else
            ActiveCell.Value = ChrW(79)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Monday, November 23, 2020

Solidworks Superscript or Subscript in Dimension Text

In a regular annotation note, create a stack that looks the way you like.  It will take a couple of trial and error attempts since there's no preview.  Once you have the look you seek, RMB on the note (without double-clicking) and then choose Edit Text in Window.  Copy the raw entry from <STACK> to </STACK> and cancel.  Edit your dimension and paste this into the Dimension Text edit field. 


Example: <STACK size=0.6 divider=no>a<OVER></STACK>

Friday, November 13, 2020

Alt Codes for Checkmarks

 

Solidworks macros eith ChatGPT

 Record a simple using thr Solidworks macro recorder, upload it to ChatGPT, and explain to ChatGPT how you want it changed:  https://youtu.b...