Powerpoint의 VBA : 텍스트 상자 값

Question

파워 포인트에있는 2 개의 텍스트 상자의 값을 비교하고 가장 높은 숫자 값을 강조 표시하고 싶습니다.

사각형 84 "11"및 사각형 (95) (6)의 값의 값이 불행히도 경우

If ActivePresentation.Slides(4).Shapes("Rectangle 84").TextFrame.TextRange.Text.Value >= ActivePresentation.Slides(4).Shapes("Rectangle 95").TextFrame.TextRange.Text.Value Then XXXX 

후 현재 (6)이 강조된다

여기 내 코드입니다. 올바른 결과를 얻을 수 있도록 텍스트를 숫자 값으로 변환 할 수있는 방법이 있습니까? CLng를 사용하여 예를 들어, 첫 번째 숫자에 값을 변환

감사 제임스

Answer 1

봅니다 (긴 변환) 또는이 아닌 정수를 기대한다면 CDbl (두배로 변환). 그들은 알파벳 순으로 정렬 얻을 때문에

If CDbl(ActivePresentation.Slides(4).Shapes("Rectangle 84").TextFrame.TextRange.Text.Value) >= CDbl(ActivePresentation.Slides(4).Shapes("Rectangle 95").TextFrame.TextRange.Text.Value) Then XXXX 

문자열 "11"는 "6"보다 "작은"입니다.

텍스트 유형을 방지하기 위해 변환하기 전에 IsNumeric를 사용하여 유효한 경우 또한 확인 할 수는