マクロにてオブジェクトの線を太線にするには？

質問

テキストＢＯＸとオブジェクトが数個混在しているシートにおいて、
1.テキストＢＯＸは文字有りで枠線なし
2.オブジェクトは線あり
の場合で、

ドラッグして選択した任意の個数のテキストＢＯＸの文字は太字に
　　　　　　　　　　　　　　　　オブジェクトの線は太線に

変更するマクロを作りたいのですが、よろしくおねがいします。
ちなみに、ＥＸＣＥＬでは以下でＯＫです。

Sub aaa()
　　Dim SelOb As Object
　　Set SelOb = Selection
　　If TypeName(SelOb) = "DrawingObjects" Then
　　　 For Each DrOb In SelOb
　　　　　 If TypeName(DrOb) = "TextBox" Then
　　　　　　　Selection.Font.Bold = True
　　　　　 Else
　　　　　　　Selection.ShapeRange.Line.Weight = 1.5
　　　　　 End If
　　　 Next
　　End If
　　Set SelOb = Nothing
End Sub

回答No.1

imogasi

>ちなみに、ＥＸＣＥＬでは以下でＯＫです。
と言うことは、やりたいアプリケーションはなんですか。
アクセスＶＢＡと言うことですか。どこにも書いてないようなんですが。エクセルだったら、上記ＶＢＡは動くのですよね。

お礼

大変失礼しました。
やりたいアプリはパワーポイントです。

（パワーポイントの質問は今回が初めてで、つい書き忘れてしまいました・・・言い訳）