Freeze row height then put button to view entire cell
Thanks
"Greg" wrote:
Just a bell and whistle, but you could also toggle the macrobutton text
between show and hide:
Sub ViewAnswerToggle()
With Selection.Rows(1)
If .HeightRule = wdRowHeightExactly Then
.HeightRule = wdRowHeightAuto
.Range.Fields(1).Code.Text = "MACROBUTTON ViewAnswerToggle
""Hide"""
Else
.HeightRule = wdRowHeightExactly
.Height = "42"
.Range.Fields(1).Code.Text = "MACROBUTTON ViewAnsWerToggle
""Show"""
End If
End With
End Sub
|