|
▼ハマゾウ さん:
>▼TEN さん:
>以下はチャート以外すべてを削除する例です。
>
>
>Sub test()
> Dim Sh As Object
> Dim i As Long
>
> i = 0
> For Each Sh In Sheets("sheet1").Shapes
> If Sh.Name Like "Chart*" = False Then
> Sh.Delete
> i = i + 1
> End If
> Next
> MsgBox i & "個のShapeを削除"
>End Sub
早い返事ありがとうございました^^ これで今日は早く仕事からあがれそうな
予感がします。
上記の方法でやるとコンボボックスとかも消えてしまったので、逆に
オートシェイプ* = true にさせていただきました。
あと、上記の方法でレーダーチャートグラフのグラフだけ残してデータだけ消す
こと等はできるのでしょうか?
重ねて申し訳ないのですが、レーダーチャートのタイトルラベルってフォントは
選べないのでしょうか? プロパティ等を探したのですがよくわからなかったので(汗)
本当に申し訳ありませんが、ご存知でしたら教えていただけませんか?
|
|