EXCELのスクロールが極端に遅くなったので、ここでヒントを探しました。すると、オブジェクトが何らかの原因ではないかということで、オブジェクトを全部選択して消去することで、解決しました。2メガ以上あった容量も50キロ程度になりました。
ところで、どんなオブジェクトが原因だったのかと思って、空のワークシートにそのオブジェクトを貼り付けてみました。
目に見えるオブジェクトを消して保存すると、まだ2メガ以上の容量があり、何か見えないオブジェクトが残っているのかもしれないと思うのです。それを発見する方法はないものでしょうか。また、見えないオブジェクトの正体は?
No.5ベストアンサー
- 回答日時:
>リサイズの方法がわかりません。
全オブジェクトを選択した状態で、
[右クリック]-[オートシェイプの書式設定]-[サイズ]から指定します。
>実行方法がわかりませんでした
1. [Alt]+[F11]でVisual Basic Editor起動(以下VBE)
2. VBE画面で[挿入]-[標準モジュール]クリック
3. 2.で開いたウインドウに#2のVBAコードをコピー&ペースト
4. VBEを閉じる
5. [ツール]-[マクロ]-[マクロ]で実行
です。次のような感じで新規シートにオブジェクト一覧を作成します。
ex)
Rectangle Rectangle 1 $F$16:$H$21
Picture Picture 2 $G$11:$I$18
全部英数字で出力されますが、種類と名前を見れば、大抵検討はつきます。
例えば、ワードアートなら、名前が「WordArt 1」とでますので。
どうもありがとうございました。うまくいきました。マクロを実行してみると、「図形」のオブジェクトが16000個以上発見されました。その実行にも10分以上かかりました。これではスクロールが遅くなるのも仕方ないですね。
問題のオブジェクトは長さ1cmにも満たない線でした。どうしてこのようなオブジェクトが紛れ込んでしまったのかわかりませんが、今回のことでいろいろなことがわかりよかったと思っています。
また機会がありましたらよろしくお願いします
No.4
- 回答日時:
>すべてのオブジェクトが選択されていると思われる状態で、色をつけてみましたが...
とありますので、オブジェクトのプロパティ操作はできたのですよね?オブジェクトを全選択して、縦と横のサイズを1cmとかにリサイズしてみれば?
>でも見えないのです。不思議です。
プロパティで「セルに合わせて移動やサイズの変更をする」になっていると、行や列の削除でオブジェクトが極端に細くなったりしますが、セルに罫線が引かれていたりすると、それに埋もれて見えにくくなりますね。というか、見えない。
>...まだ2メガ以上の容量があり、何か見えないオブジェクトが残っているのかもしれないと思うのです。それを発見する方法...
リスト化すれば一発で、残っているオブジェクトの「種類・名前・位置」がわかるのですが。
>アクティブなワークシート全体が選択されてしまいます。すべてのセルにオブジェクトが存在していた。と解釈するべきなのでしょうか
マクロの自動記録をとればわかりますが、
[Ctrl]+[Shift]+[Space] --> Cells.Select
つまり、セルの全選択です。オブジェクトだけ選択することはできません。
KenKen_SPさんありがとうございます。
マクロの紹介をしてくださった方ですよね、ご丁寧にありがとうございます。ただ、私はマクロを使ったことがなく、実行方法がわかりませんでした。残念!
>オブジェクトを全選択して、縦と横のサイズを1cmとかにリサイズしてみれば?
とのことですが、リサイズの方法がわかりません。
つまり、わからないだらけなのです。ただ、何かの拍子に何かを間違ってペーストしてしまったことは明らかのようです。その正体を突き止めたいと思っております。
No.3
- 回答日時:
No.1 の者です。
気休めでしかないかもしれませんが、まずはオブジェクトを見えるようにしてみてはどうでしょうか。
(1)の方法で個別に、または(2)の方法で一括に、オブジェクトに色や線をつけて画面上で見える状態にする。
オブジェクトの数がそれほで多くなければ(1)の方法で何種類かに色分けした方がいいかもしれませんね。
No.2 の方の方法でリスト化されるのも、違う意味で見えるようにすることになるので良いかと思います。
この回答への補足
すべてのオブジェクトが選択されていると思われる状態で、色をつけてみましたが、正体を現しません。
TABキーでオブジェクトを次々に選択すると、左上に「図×××」というような表示が出ます。この数字の部分が最大4桁になってしまいました。でも見えないのです。不思議です。
No.2
- 回答日時:
シート内のオブジェクトを全て選択する方法
1. 任意の単位セルを選択(複数セルを選択しない)
2. [Ctrl]+[G]で[ジャンプ]ウインドウが開きます
3. [セル選択]ボタンクリック
4. [オブジェクト]を選択し、[OK]クリック
これで、シート内の全オブジェクトが選択されます。ただし、コントロールは事前にデザインモードにしておかないと選択されません。
また、参考までにですが、下記マクロはシート内の全オブジェクトをリスト化するものです。
Sub 配置オブジェクトの一覧作成()
Dim myObject As Object
Dim aryResult() As String, Buf() As String
Dim strShName As String, LT As String, BR As String
Dim i As Long, j As Long
Dim Sh As Worksheet
strShName = ActiveSheet.Name
i = 0
For Each myObject In ActiveSheet.DrawingObjects
ReDim Preserve aryResult(2, i)
aryResult(0, i) = TypeName(myObject)
aryResult(1, i) = myObject.Name
LT = myObject.TopLeftCell.Address
BR = myObject.BottomRightCell.Address
If LT <> BR Then LT = LT & ":" & BR
aryResult(2, i) = LT
i = i + 1
Next myObject
If i = 0 Then
MsgBox "オブジェクトはありません", vbInformation
Exit Sub
End If
'要素入替え
ReDim Buf(UBound(aryResult, 2), UBound(aryResult))
For i = 0 To UBound(aryResult)
For j = 0 To UBound(aryResult, 2)
Buf(j, i) = aryResult(i, j)
Next j
Next i
'結果
Set Sh = Sheets.Add
With Sh
.Range("A3") = "種類"
.Range("B3") = "名前"
.Range("C3") = "位置"
.Range("A4").Resize(j, i).Value = Buf
.Columns("A:C").AutoFit
.Range("A1") = "シート[ " & strShName & " ]に配置されたオブジェクト"
End With
MsgBox j & "個のオブジェクトが配置されています", vbInformation
End Sub
No.1
- 回答日時:
見えないオブジェクトを探す方を2通りご紹介します。
まず適当なオブジェクトを1つ作成します。
それを選択した状態で
(1)Tabキーを押す
シート上のオブジェクトを次々に選択していきます
(2)日本語入力をOFFにした状態で[Ctrl]+[Shift]+[スペース]を押す
シート上のオブジェクトを一括で選択します
この回答への補足
TABキーにより、ワークシートの左上に次々にオブジェクトの名前が表示されるのがよくわかりました。
ところがそれぞれのオブジェクトがいったい何であうのか?どこにあるのか?表示されないので、全くわかりません。
(2)日本語入力をOFFにした状態で[Ctrl]+[Shift]+[スペース]を押す
シート上のオブジェクトを一括で選択します
をためしてみましたが、アクティブなワークシート全体が選択されてしまいます。すべてのセルにオブジェクトが存在していた。と解釈するべきなのでしょうか
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) テキストの背後にあるオブジェクトとは 3 2023/01/03 20:22
- Illustrator(イラストレーター) 【シェイプ形成ツール】でうまく分割できない 1 2022/05/26 10:57
- PowerPoint(パワーポイント) パワーポイントのアニメーションについて 4 2023/06/14 16:25
- Java 複数TBLのオブジェクトを1つの変数(オブジェクト)でまとめて管理したい 1 2022/12/17 00:12
- Visual Basic(VBA) Excel VBA オブジェクトマクロ 使用指定について お詳しい方教えてください。 共通エクセルフ 2 2023/03/14 17:26
- Illustrator(イラストレーター) ワード。グラデーションがうまく行かない。 2 2022/09/28 19:56
- Illustrator(イラストレーター) Illustratorでオブジェクトの色が勝手に変わって困っています。 4 2022/09/04 18:47
- その他(プログラミング・Web制作) Pythonのオブジェクトの関数について 2 2023/05/11 19:15
- Java オブジェクト指向プログラミングの実践本を紹介してください 3 2022/09/19 04:56
- JavaScript オブジェクト配列の各メンバを任意の式で評価して、その評価値が最大のオブジェクトを返す関数はありますか 2 2023/05/20 15:02
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Lookup関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
エクセル日付 文字列の関数がエ...
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelピボットテーブルの1行目
-
エクセルの問題です。絶対値の...
-
Excelの表示についての質問
-
Excel関数について教えてくださ...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
DATE関数で現在の年齢を出した...
-
Excelデータをコピペして、ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報