Добрый день, уважаемые знатоки.  
Очень нужна ваша помощь.  
Есть табличка, и есть пример диаграммы,подсмотренной мною у Гугла :),  очень нужно такую же построить в excel. Помогите пожалуйста.  
 
Суть диаграммы по сути дела, как ни странно, пересечению людей и фруктов по популярности.

Добрый день, уважаемые знатоки.  
Возникла необходимость получить названия всех "Тем" Microsoft Office, как Встроенных, так и пользовательских, естественно через VBA.  
Никак не могу понять какой параметр содержит данную информацию.

Здравствуйте,уважаемые знатоки, помогите, пожалуйста, вот в каком вопросе:  
Никак не могу через VBA добраться до Градиента типа радиальный/путь.  
Во вложении макрос, который создает вроде бы нормальный градиент, но не то что нужно.  
То, что нужно в файле тоже есть)  
Спасибо!

Добрый день, знатоки!  
Есть ситуация:  
Форма, на ней WebBrowser.  
В webbrowser посредством Navigate загружаются некоторые файлы(html, swf, gif, jpg итд)  
Возникла необходимость добавить на форму контролы Zoom In/Zoom out.  
Перерыл все, нашел метод:  
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0..4), vbNull  
Но она меняет только размер текста.  
 
Помогите пожалуйста!

Добрый день, уважаемые знатоки,  
Скажите пожалуйста возможна ли вставка процентного формата в ListBox?

Добрый день, уважаемые знатоки. Интересует возможность создания зума для круговой диаграммы.    
 
Есть динамически создающийся список с долями по брендам. Их количество варьируется от 1 до 89. В тот момент когда их число превышает некоторое количество на диаграмме уже невозможно увидеть ни названия, ни доли. Что делать?

Есть :Set HeadRng=PPPres.Slides(1).Shapes(2).Chart.ChartData.Workbook.Worksheets(1).ListObjects.Item(1).HeaderRowRange  
И есть Range("A1:B5") где первый столбец это названия групп, а второй это залитые разными цветами ячейки. Каждой группе соответствует свой цвет.  
 
Нужно найти для каждой группы из HeadRng цвет из Range("a1:B5") и залить этим цветом.  
 
Как это реализовать.  
 
То есть по сути здесь ВПР по цвету!

Здравствуйте, коллеги. Мучаюсь никак в голову не приходит.  
Есть myRng=Range("A1:B5") и есть myHeadRng, который может состоять как из одного столбца так и из одной строки.  
 
Как сравнить эти два диапазона по значениям в VBA и если есть совпадения сделать следующее(см. файл)

Уважаемые, знатоки!  
Как можно добавить скролл в ListBox???

Весь день ломаю себе голову. Разобрался с NoDups, но не могу разобраться в следующем можно ли вместо целого столбца использовать интервалы. а нужно мне это вот для чего.  
В combobox нужно выгрузить уникальные значения содержащие "+". Выделение диапазонов с "+" реализую с помощью:  
With Selection  
.AutoFilter Field:=4, Criteria1:="=*+*", Operator:=xlAnd  
End With  
Set Rng = Range(Cells(1, 4), Cells(r, 4)).SpecialCells(xlCellTypeVisible)  
 
Но никак не могу понять как создать из этого Arr()...

Есть процедура проигрывания стороннего медиафайла в WMP на листе:  
 
Sub Play_WMP()  
myURL=Range("G5")  
ActiveSheet.WindowsMediaPlayer1.URL = myURL  
ActiveSheet.WindowsMediaPlayer1.Controls.Play  
End sub  
 
При проигрывании файла изменяется размеры окна плеера.  
Как от этого избавится. Пробовал так:  
 
Sub Play_WMP()  
myURL=Range("G5")  
ActiveSheet.WindowsMediaPlayer1.heigth=165  
ActiveSheet.WindowsMediaPlayer1.width=165  
ActiveSheet.WindowsMediaPlayer1.URL = myURL  
ActiveSheet.WindowsMediaPlayer1.Controls.Play  
End sub  
 
Но он сначала увеличивает окно а затем при проигрывании файла снова уменьшает по размеру видео!    
 
Что делать?

Здравствуйте.  
Возникла потребность автоматизации создания диаграммы (например круговой) в PowerPoint по данным из файла Excel.  
 
Sub Command1_Click()  
   Dim ppApp As PowerPoint.Application  
   Set ppApp = CreateObject("Powerpoint.Application")  
   
   ppApp.Visible = True  
   Dim ppPres As PowerPoint.Presentation  
   Set ppPres = ppApp.Presentations.Add(msoTrue)  
     
   Dim ppSlide1 As PowerPoint.Slide  
   Set ppSlide1 = ppPres.Slides.Add(1, ppLayoutTextAndChart)  
     
   ' Add some text.  
   ppSlide2.Shapes(1).TextFrame.TextRange.Text = "Цветочки Пестики"  
   ppSlide2.Shapes(2).TextFrame.TextRange.Text = "Диаграмма за январь. Цена."  
   
   Dim cTop As Double  
   Dim cWidth As Double  
   Dim cHeight As Double  
   Dim cLeft As Double  
   With ppSlide2.Shapes(3)  
       cTop = .Top  
       cWidth = .Width  
       cHeight = .Height  
       cLeft = .Left  
       .Delete  
   End With  
   ppSlide2.Shapes.AddOLEObject cLeft, cTop, cWidth, cHeight, "MSGraph.Chart"  
 
Нигде не могу найти примеры работы с MSGraph'ом. Каким образом из сорс файла создать диаграмму.