Hi Friends
Many time you need to clear all unwanted shapes from particular range by deleting or hiding, and since shapes/ pictures doesn't reside in cells but floats above it which makes it difficult to manage, we can use following code to manage floating shop per our need:
Many time you need to clear all unwanted shapes from particular range by deleting or hiding, and since shapes/ pictures doesn't reside in cells but floats above it which makes it difficult to manage, we can use following code to manage floating shop per our need:
Sub Hide_Shapes()
Dim s As String
Dim sObject As Shape
Dim rng As Range
Set ws = ActiveSheet
'Set ws = ActiveWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A:C,BC:BD")
For Each sObject In ws.Shapes
With sObject
s = .TopLeftCell.Address & ":" & .BottomRightCell.Address
End With
If Not Intersect(rng, ws.Range(s)) Is Nothing Then
sObject.Visible = msoFalse
'use below line for deleting shape
'sObject.Delete
End If
Next
End Sub
Do let me update your views,
Cheers!!
Well, it is a part of} a stay streaming service that is supplied by Betiton™. The number of builders we have not solely helps 토토사이트 to add to the sport count but more importantly, adds to the range of programming. Software programming is crucial, and through Betiton™, shall be able|it is feasible for you to} to access virtual video games which might be} made with a special kind of algorithm, which is that they RNG .
ReplyDelete