Word Optionbutton Calculations

[Ladyj205]

oops. Thanks

So will add ActiveDocument.InlineShapes(1).OLEFormat.Object.Value between case and end select

Sub CalcDisplay()
Dim oTbl As Table
Dim arrParts() As Variant
Set oTbl = ActiveDocument.Tables(1)
With oTbl.Cell(1, 1).Range
Select Case True
Case opt_25_3: .Text = "75"
Case opt_25_2: .Text = "50"
Case opt_25_1: .Text = "25"
Case opt_25_0: .Text = "0"
End Select
ActiveDocument.InlineShapes(1).OLEFormat.Object.Value
End With
With oTbl.Cell(6, 1).Range
Select Case True
Case opt_20_3: .Text = "60"
Case opt_20_2: .Text = "40"
Case opt_20_1: .Text = "20"
Case opt_20_0: .Text = "0"
ActiveDocument.InlineShapes(1).OLEFormat.Object.Value
End Select
End With
oTbl.Cell(11, 2).Range.Text = CLng(fcnCellText(oTbl.Cell(1, 1))) + CLng(fcnCellText(oTbl.Cell(6, 1)))
End Sub


Function fncCellText(oCell As Cell)
Dim oRng As Range
Set oRng = oCell.Range
oRng.End = oRng.End - 1
fcnCellText = oRng.Text
End Function