|
りん さん、おはようございます。
>For Each〜で、コレクションのアイテムが1つでもループ処理ができますが、コレクションでない場合(今回はTextBox)をループしようとするとエラーになります。
これ知りませんでした。図形について詳しくない者にとっては微妙ですね。
勉強になりました。
> Case "DrawingObjects"
図形を2つ以上選択したとき、これで対応ができるんですね。
これも勉強になりました。
回答をいただき、すっきりしました。
りん さん、ありがとうございました。
>Selectionの内容で分岐して処理するようにしました。
>
>Sub Set_PrintObject()
> Dim sh As Object
> '
> Select Case TypeName(Selection)
> Case "Range": '何もしない
> Case "DrawingObjects"
> For Each sh In Selection
> Sh_Set sh '複数オブジェクトならループしながらコール
> Next
> Case Else
> Sh_Set Selection '単体オブジェクトならそのままコール
> End Select
>End Sub
|
|