ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ²M°£sheet¤ºªº¹Ï¤ù,­n¦p¦ó¹w¨¾³scommand button ¤]¤@¨Ö³Q§R°£

[µo°Ý] ²M°£sheet¤ºªº¹Ï¤ù,­n¦p¦ó¹w¨¾³scommand button ¤]¤@¨Ö³Q§R°£

§Ú¼g¤F¤@¤p¬qµ{¦¡,²M°£SHEET¤º©Ò¦³ªº¹Ï¤ù,¦ý¬O¥L·|³s¦P±±¨îªºcommand button ¤]¤@³Q§R°£
³oºØ²{¶H­n¦p¦ó³B²z?

Private Sub CommandButton_Clear_Click()
chose = MsgBox("¬O§_²M°£Àx¦s®æ¤º©Ò¦³¸ê®Æ", vbYesNo + vbQuestion, "´£¥Ü")
     Select Case chose
       Case vbYes
         Range(Cells(1, 1), Cells(65536, 256)).ClearContents '²M°£A1~IV65536Àx¦s®æ¸ê®Æ
         ActiveSheet.Shapes.SelectAll                        '¿ï¾Ü©Ò¦³¹Ï¤ù(Barcode)
         Selection.Delete                                    '§R°£¹Ï¤ù
         Cells(1, 1).Select
       Case vbNo
     End Select
End Sub

ActiveSheet.Pictures.Delete

TOP

¨S¥Îªü,CommandButton ¤@¼Ë·|³Q§R±¼.....

TOP

¤£·|ªü  §ÚTEST´NOK ¥u·|§R¹Ï¤ù

chose = MsgBox("¬O§_²M°£Àx¦s®æ¤º©Ò¦³¸ê®Æ", vbYesNo + vbQuestion, "´£¥Ü")
     Select Case chose
       Case vbYes
         Range(Cells(1, 1), Cells(65536, 256)).ClearContents '²M°£A1~IV65536Àx¦s®æ¸ê®Æ
         ActiveSheet.Pictures.Delete
         Cells(1, 1).Select
       Case vbNo
     End Select
ù

TOP

¦^´_ 4# rouber590324

§ÚÁÙ¬O·|ªü~
°Ñ¾\ªþ¥ó Book2.rar (38.95 KB)

TOP

For Each SHP In ActiveSheet.DrawingObjects
¡@¡@If TypeName(SHP) = "Picture" Then SHP.Delete
Next

TOP

¦^´_ 6# ­ã´£³¡ªL

¯u¬OÁÂÁÂÀ°¦£,¯à§_µy·L¸ÑÄÀ¤@¤U,ÁöµM¥u¦³µuµu2¦æ,¬Ýªº§Ú¤@ÀYÃú¤ô
²{¦b¥¿¦bGOOGLE..ing

TOP

Please read https://msdn.microsoft.com/EN-US/library/office/ff860759.aspx
Sub zz()
Dim x()
For Each s In ActiveSheet.Shapes
    If s.Type = 13 Then s.Delete
Next
End Sub

TOP

¦^´_ 7# morris_lth

DrawingObjects ¬°¤u§@ªí¤¤ªº¡e¥þ³¡¡f¡eª«¥ó¡f¡A
¨Ï¥Î¡e½s¿è¡D¨ì¡D¯S®í¡Dª«¥ó¡f¡D§Y¥i¿ý»sµ{¦¡½X¡I
TypeName(¡H)¡@¥i¥H¨ú¥X¬A¸¹¤º¡eª«¥ó¡f©Î¡e¤º®e¡fªº¦WºÙ©ÎÃþ«¬¡A
MsgBox TypeName(Range("A1"))¡@§P©w¬° Range ª«¥ó¡A
MsgBox TypeName(Range("A1").Value)¡@«h¨Ì¢Ï¢°¿é¤Jªº¡e¤º®e¡f§P©w¨äÃþ«¬


¸Õ¸Õ¦b¤u§@ªí¤¤©ñ¤£¦PÃþ«¬ªºª«¥ó¡G
For Each SHP In ActiveSheet.DrawingObjects
¡@¡@MsgBox TypeName(SHP)
Next

TOP

¦^´_ 9# ­ã´£³¡ªL


    ·PÁª©¤j,§Ú±q¥H«e´N¤@ª½¤£«Å§iµ{¦¡½X,¦ý¹ê»Ú¤W¤£¬O¦]¬°§Ö³t,¦Ó¬O¦]¬°¤£ª¾¹D«¬ºA
¦³¤FTypeName,´N¥i¥Hª¾¹D©Ò¦³ªº«¬ºA¤F,«D±`·PÁª©¤j

¦]¬°¨C¦¸¬Ý°ª¤â¼gµ{¦¡½X,³£·|±j¨î«Å§i,ÁקK¿ù»~,¦ý¦Û¤vµLªk¿ì¨ì,²{¦b´N¥i¥Hª¾¹D©Ò¦³ªº«¬ºA¤F,·PÁª©¤j
¥B
For Each SHP In ActiveSheet.DrawingObjects
        If TypeName(SHP) = "Picture" Then SHP.Delete
    Next

³o¬qµ{¦¡½X¤]«Ü¦n¥Î®@!·P®¦!
PKKO

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD