использую .Shapes.AddPicture, но в нем используются обязательные параметры высоты и ширины вставляемой картинки. При использовании .Pictures.Insert картинка вставляется как ссылка. Как сделать, помогите пожалуйста.

Нашел вот такой метод

Примечание: Если на панели инструментов отсутствует кнопка " RefEdit ", выполните следующие действия:a.В меню Сервис выберите команду Дополнительные элементы управления.
b.В диалоговом окне Дополнительных элементов управления установите флажок « RefEdit.ctrl » и нажмите кнопку ОК.

не смог найти это меню.

заранее благодарен

Коллеги, вопрос в следующем:
как получить выбранные параметры срезов сводной таблицы с помощью VBA?
Может уже кто сталкивался с решением данной задачки?

Спасибо.

Ситуация такая, excel файл генерится внешней базой данной и все бы хорошо, вот только не работает поиск впринципе. Даже если все скопировать в другую книгу, то поиск продолжает не работать.  
 
Помогите плиз! С чем это может быть связано?  
умножение на 1 пробовал, не помогает, поразному копировал/вставлял никак.

Господа, как в excel поменять правила сортировки численно буквенных данных.  
 
1 текст  
15 текст  
18 текст  
2 текст  
23 текст  
25 текст  
3 текст  
35 текст  
и т.д.  
 
А надо что бы было    
1 текст  
2 текст  
3 текст  
15 текст  
18 текст  
23 текст  
25 текст  
35 текст

Всем привет!  
 
Возникла необходимость в сводной таблице сделать 3 фильтра по группам товара:  
Группа1 Группа2 Группа3  
 
Возможно ли в excel сделать эти фильтры зависимыми??  
 
Т.е. Если выбран фильтр по группе1, то в фильтре по Группе2, будут отображаться только Группы2 входящие в Группу1, ну и с третьим фильтром то же самое

Коллеги,  
 
бадаюсь с 2010 excel.  
Функции записанные в Personal.xlsb сначала работали как надо, а сейчас не работают.  
Что случилось не пойму.  
 
Может кто-нибудь сталкивался?

Подскажите пожалуйста, можно ли выводить итоги в сводной таблице вверху данных, а не под ними? И как?  
 
Спасибо!

Возможно проблема где-то уже всплывала.  
 
Суть такова, есть макрос, который вставляет картинки в файл экселя. Как я понимаю эксель сам по себе "не в пихивает в себя картинки" а только пихает ссылки на картинки и отображает их. В 2003 excele все работает как часы, а вот в 2010 начались проблемы.  
 
Проблема в следующем.  
При переоткрытии файла пропадают все картинки, и выводиться сообщения о том что файл с картинкой был перемещен или переименован. Предполагаю что это связано с моими ограниченными правами на рабочем компьютере. Если ручками вставлять, то все картинки остаются.  
 
Вопрос в следующем как сделать так чтобы картинки сохранялись в самом экселе?

Всем привет!  
 
При открытии книги запускается следующий макрос  
 
Private Sub Workbook_Open()  
Set w = ThisWorkbook  
w.ChangeFileAccess Mode:=xlReadOnly  
End Sub  
 
В Excel 2003 файл открывается и устанавливается режим только для чтения, а 2010 появляется сообщение вида:  
"Сохранить изменения перед переключением состояния файла?"  
 
Вопрос - как от него избавиться?

Господа, поиском пользовался, смог найти вот такой макрос, немного переделал.  
Проверка открытия происходит, но вот кем открыт не получается сделать.  
 
Переменной asUsers не присваивается имя книги.  
 
Помогите плиз разобраться?  
 
 
Function IsOpen(File$) As Boolean  
 
Dim asUsers, sUserName As String, sDateTime As String, sStatus As String  
Dim li As Long  
 
Dim FN%  
On Error Resume Next  
Open File For Random Access Read Write Lock Read Write As #FN  
 
asUsers = Workbooks(File).UserStatus  
sUserName = asUsers(1, 1)  
sDateTime = asUsers(1, 2)  
 
Close #FN  
IsOpen = Err  
End Function  
 
Sub Test()  
MsgBox IsOpen("C:\TEST.xls")  
End Sub

Коллеги,    
 
подскажите пожалуйста как создать справку для пользовательских функций, и вывод подсказки при наборе функции. Спасибо.

Господа помогите записать формулу в VBA.  
=СЖПРОБЕЛЫ(ПСТР(A2;2;ПОИСК("-";A2;1)-2))  
 
Функции СЖПРОБЕЛЫ и ПСТР на VBA будут TRIM и MID они работают,  
а вот функция ПОИСК/НАйти (Search/Find) на VBA не работают.  
 
Пример использования во вложении.  
 
Большое спасибо.

Господа,    
пытаюсь решить тот же вопрос что и в http://www.planetaexcel.ru/forum.php?thread_id=8786.  
Нашел в интернете макрос позволяющий это сделать через sendkeys.  
 
Sub Compress_PIX()  
 
Dim octl As CommandBarControl  
 
With Selection  
   Set octl = Application.CommandBars.FindControl(ID:=6382)  
   octl.Execute  
End With  
 
End Sub  
 
Данный макрос вызывает меню "Сжатие рисунков" (Формат рисунка, вкладка Рисунок, нопка сжать)  
 
 
Вопрос как узнать номера других Менюшек.  
 
Большое спасибо.

Господа,  
в интернете нашел решение для случаев задания гиперссылки через свойство ячейки и для случая использования функции ГИПЕРССЫЛКА но с целиком прописанной ссылкой

Помогите плиз решить такую задачку:  
Как узнать с помощью макроса какая кнопка на клавиатуре нажата в данный момент?

Господа, помогите плиз с решением вот такой задачки:  
с помощью VBA вставляю формулу в ячейку, но формула не работает и выдает ошибку #ИМЯ?.  
Но если зайти в ячейку и нажать enter, все работает. Как поправить код VBA чтобы работало сразу.  
 
Спасибо.

Помогите плиз, как закачать файл из интернета и сохранить его в указанную папку.

т.е. там где можно выбрать показывать: сумму, среднее, мин, макс или количество в выбираемых ячейках. (блин, надеюсь понятно объснил, сам толком не знаю как это назвать)

т.е. когда выделяешь не всю ячейку а часть текста в этой ячейке.  
Друзья, помогите плиз!

Господа, помогите пожалуйста!!!  
 
как зная код цвета Selection.Interior.ColorIndex = 37, получить его шестнадцатиричную запись

Господа!  
 
есть 2 переключателя (OptionButton) которые находятся в одной группе и на листе Excel они сгруппированы в одну форму(т.е. формы переключателей сцеплены).  
Хочу сделать чтоб при нажатии другого переключателя они становились не активными:  
 
Private Sub OptionButton3_Click()  
If OptionButton3.Value = True Then  
OptionButton1.Enabled = False  
OptionButton2.Enabled = False  
End If  
End Sub  
 
Но ничего не происходит. Если разгруппировать эти 2 формы то при запуске макроса они становятся не активными, как и должно быть.  
 
Помогите плиз!