Mbaheblogjpaal4

Excel 07では画像の挿入位置が他のバージョンと異なります。 Excel 07で選択セルを左上端として画像を挿入するには、サンプル2の (1)のコードを下記のようにしてください。 With ActiveSheetPicturesInsert (Filename=myFileName) Top = ActiveCellTop Left = 複数行一括削除 今回の投稿では、 Excel マクロでワークシートの連続していない複数行を一括で削除する方法を試してみました。 テスト対象として、以下の画像のワークシートの 2 , 4 , 6 行目の「B」「D」「F」の入力されている行を削除してみたいと思います。 Sub Excel版ShapeAdd () Dim i As Long For i = 10 To 0 Step 10 Sheets (1) Shapes AddShape _ msoShapeRectangle, i, i, 100, 50 Next End Sub Sub Excel版ShapeDelete () Dim s As Shape For Each s In Sheets (1) Shapes sDelete Next End Sub Excel の場合、For Eachで回してもうまく消えてくれる。 パワポ 版で同等のマクロを書いてみたところ、 Office Tanaka Excel Vba Tips 重複の削除 の変な挙動 Vba 画像 削除