Powerpoint中的VBA：文本框值

Question

我想比較powerpoint中2個文本框的值，並突出顯示最高數值的文本框。

這裏是我的代碼：

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

不幸的是如果矩形84「11」和矩形95的值6的值，那麼目前的6高亮顯示。 有沒有辦法將文本轉換爲數值，以便我得到正確的結果？

感謝 詹姆斯

Answer 1

試試先轉換爲數字，例如使用CLng（轉換爲長）或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轉換爲防止類型之前弄錯