Change userform label height without changing label width

Originally Posted by MarvinP

I'm having trouble dealing with the magic to get a real answer.

Is this due to not understanding me (I can sometimes be a bit unclear sometimes I guess) or having a problem figuring out a solution?


If it is a misunderstanding, the PMCode is not set anywhere else in the subroutine. I put it there as an example of what I was trying to do.

Let me try doing it this way.

Sub ChgLblSize ()

AccessChange.EmailBody.Caption = DICEmailBody.Item(i)
AccessChange.EmailBody.Width = 250
PMCode = AccessChange.EmailBody.Height.Autosize 
'I know this is not the syntax, but I want PMCode to give the "EmailBody" label a height to fit the dynamic caption without 
'being too big or too small and without changing the width.


If AccessChange.Width < 700 Then
    AccessChange.EmailBody.Height = PMCode
    AccessChange.EmailFrame.ScrollHeight = AccessChange.EmailBody.Height
    AccessChange.Width = 875
Else
    AccessChange.Width = 565
End If

End Sub