При переустановке всей системы на компьютере испортилось большое кол-во копий xlsm 1й программы на разных стадиях. При восстановлении удаляет все макросы из файла. Был бы очень благодарен , если бы из приложенного фала удалось извлечь весь код VBA. Заранее спасибо за помощь.

Добрый день, подскажите в чем проблема...  
Для активной диаграммы не хочет задаваться заголовок в процедуре VBA. Т.е параметр "ActiveChart.HasTitle=True" не работает, в ходе выполнения кода программы "ActiveChart.HasTitle=" все равно выбивает "False"  
В приложении кусок кода.  
Заранее спасибо.

Проблематика:  
 
1я процедура рисует на листах Excel диаграммы и она же через оператор "call" вызывает следующую процедуру. Как сделать так, чтобы 1я процедура отрисовывала диаграммы и после передачи действия 2я полностью завершала свою работу, а не возвращалась к выполнению после выполнения второй процедуры при использовании оператора "call".  
 
Не совсем просто изложил, но вроде понятно...  
Заранее спасибо.

Помогите пожалуйста. При выполнении кода:  
 
Sub MInverse()  
ReDim A(2, 2) As Variant  
ReDim A1(2, 2) As Variant  
A(1, 1) = 4  
A(1, 2) = A(2, 1) = 26.25  
A(2, 2) = 6.5625  
A1 = Application.WorksheetFunction.MInverse(A)  
End Sub  
 
выдает ошибку:  
 
Run time error '1004':  
 
Невозможно получить свойство MInverse класса  
WorksheetFunction  
 
В чем проблема?  
Заранее спасибо!

Подскажите пожалуйста, как установить размер диаграммы либо в единицах измерения(пикселях, см и тд.), либо в соотношении высота/ширина(или наоборот).  
Пробовал вот так с созданной диаграммой Chart1:  
 
With Chart1.Parent  
   .Wiedth = 300  
   .Height = 150  
End With  
 
, но выдает ошибку

Подскажите, как можно защитить объект WordArt и ему подобные от удаления или изменения, оставив при этом возможность редактировать формул и изменения знаечния ячеек.Все в Excel 2007.  
Спасибо.

Помогите написать функцию автоматического скрытия строк диапазона по условию заданной ячейки.  
Функция должна иметь примерный вид:  
 
=функц(x, y)  
 
,где x - заданная ячейка которая будет проверяться на условие  
    y - диапазон скрываемых строк  
 
С программированием и VBA знаком мало, так что меня хватило только на "чудо", вроде:  
 
Function Ckrjt(y As Integer, x As rang)  
If y = 0 Then Rows(x).Hidden = True  
End Function  
 
,но выдает ошибку.Заранее спасибо!