Как мне удалить текст только с текушего листа?
Этот код удаляет текст со всех листов
selection1.Add drawingDocument1.Sheets.ActiveSheet.Views.ActiveView
selection1.Search "Drafting.Text,selection1"
selection1.Delete
selection1.Clear
selection1.Add drawingDocument1.Sheets.ActiveSheet
selection1.Search "Drafting.Text;sel" ' "Черчение.Текст;выб" - для русского языка интерфейса
If (selection1.Count > 0) And (selection1.Item(1).Type = "DrawingText") Then
selection1.Delete
End If
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2