| |
▼ハマゾウ さん：
>▼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 にさせていただきました。
あと、上記の方法でレーダーチャートグラフのグラフだけ残してデータだけ消す
こと等はできるのでしょうか？
重ねて申し訳ないのですが、レーダーチャートのタイトルラベルってフォントは
選べないのでしょうか？ プロパティ等を探したのですがよくわからなかったので（汗）
本当に申し訳ありませんが、ご存知でしたら教えていただけませんか？
|
|
TEN
- 04/12/23(木) 16:10 -
