我如何在刪除行時自動刪除圖片？

我想要求幫助。我手上有很多excel表格，每行都有一張圖片。當我複製和粘貼行時，圖片也被複制到粘貼的行中。但是，當我想要刪除行時，圖片不會被刪除。相反，它隱藏在下一行圖片的後面。我如何在刪除行時自動刪除圖片？

此外，當我排序/過濾列表，圖片似乎並沒有遵循。圖片保持在相同的位置，但所有其他值都被分類/過濾。我的工作是刪除和隨機化一些條目，所以你可以想象我的所有頑固的圖片，只是拒絕屬於自己的行，我的困境。目前，我可以過濾，突出顯示要刪除的單元格，不需要過濾（以便圖片與行匹配），刪除圖片，然後手動刪除行。至於隨機化，我堅持認爲在Excel中使用「RAND（）」函數需要對行進行排序，這會弄亂圖片。

如果有人能夠提供解決方法來解決這個問題，我將不勝感激。這個論壇主題http://www.ozgrid.com/forum/showthread.php?t=85597也描述了我正在經歷的事情。但是，當我嘗試VBA代碼時，它說「運行時錯誤13」，我不知道這意味着什麼。嘗試這個代碼是我第一次嘗試使用VBAs和宏，但我非常有信心，我遵循瞭如何正確添加和運行它們的說明。它在句子For Each sh In Shapes處進行調試。

一些更多的細節：我的圖片屬性被設置爲「移動和大小與細胞」。每行只有一張圖片，不包括標題。如果你們需要我發送excel文件，我不能這樣做，因爲它包含私人信息。但是，我可以更改數據。希望能工作！

來源

2015-04-22 mstanwj

圖片浮動上述細胞：

enter image description here

的左上 - 手角是在細胞B2 ............我們可以用它來決定刪除該行之前刪除之前的圖片。因此，如果我們想刪除列＃2及其相關圖片：

Sub dural() 
    Dim shp As Shape, rng As Range 
    Dim WhichRow As Long 

    For Each shp In ActiveSheet.Shapes 
     Set rng = shp.TopLeftCell 
     WhichRow = rng.Row 
     If WhichRow = 2 Then shp.Delete 
    Next shp 
End Sub

然後刪除列＃2

來源

2015-04-22 11:39:05

我如何在刪除行時自動刪除圖片？

回答

相關問題