ビットマップファイルを読み込んで画素を1px x 1pxに幅設定したセルの背景色として割り当てて、 シート状にビットマップ画像を表示するプログラムを作りました。 うまくいくときはうまくいくのですが、ときどき、 「セルの書式が多すぎるため、書式を追加できません」 とエラーが出て処理が止まります。 chatGPTに効いたらActiveworksheet.Stylesを削除すればいいと言われたので、 For k = ActiveWorkbook.Styles.Count To 1 Step -1 If InStr("Hyperlink,Normal,Followed Hyperlink", ActiveWorkbook.Styles(k).Name) Then 'pass Else Debug.Print ActiveWorkbook.Styles(k).Name ActiveWorkbook.Styles(k).Delete End If Next k こういう処理をループにかませてスタイルを削除させていたのですが、うまくいきません。 端的にいうと、スタイルがそんな増殖しているわけでもないみたいです。４７個ぐらいにしかなりません。
