EXCEL2013」タグアーカイブ

Excel2013でブックの図形一括削除

Dim ws As Worksheet
Dim sp As Shape
Dim c As Range
Dim todo As Boolean

For Each ws In Worksheets
For Each sp In ws.Shapes
todo = True
If TypeName(sp.DrawingObject) = “DropDown” Then
Set c = Nothing
On Error Resume Next
Set c = sp.TopLeftCell
On Error GoTo 0
If c Is Nothing Then todo = False
End If
If todo Then sp.Delete
Next
Next

ネットに出てたものをコピペしただけ
これは便利


EXCEL2013 「プログラムにコマンドを送信しているときに、エラーが発生しました。」

「Windows8.1でEXCEL2013のファイルを開くと上記のエラーが出てしまう」
という相談を頂きました。

検索してみて対応策で一番多かったのが、
[Dynamic Data Exchange (DDE) を使用する他のアプリケーションを無視する] チェック ボックスをオフにする
というものでしたがこれでは解決しませんでした。

EXCEL2013の拡張子はxlsx
不思議なことにエラーがでないファイルはxlsでした。
そこでxlsxのプロパティを見ると「プログラムの選択」が「microsoft open xml converter」になっていました。
これをexcel.exeに変更することで解決。

どうしてこのようなエラーが出るようになったのかは不明とのことです。