Автоматическая передача таблиц Excel в PowerPoint вызывает неравные ширины границ

Я автоматизирую процесс отправки листинга excels в качестве imgs в презентацию PowerPoint, потому что мне это нужно каждый день, и очень скучно копировать / вставлять ее.

Я использую следующую функцию (активированную тостом в одном листе Excel), чтобы скопировать его:

Sub WorkbooktoPowerPoint() 'Step 1: Declare your variables Dim pp As Object Dim PPPres As Object Dim PPSlide As Object Dim xlwksht As Worksheet Dim MyRange As String Dim MyTitle As String 'Step 2: Open PowerPoint, add a new presentation and make visible Set pp = CreateObject("PowerPoint.Application") Set PPPres = pp.Presentations.Add pp.Visible = True 'Step 3: Set the ranges for your data and title MyRange = "B2:BH40" '<< 'Step 4: Start the loop through each worksheet For Each xlwksht In ActiveWorkbook.Worksheets xlwksht.Select Application.Wait (Now + TimeValue("0:00:1")) 'Step 5: Copy the range as picture xlwksht.Range(MyRange).CopyPicture _ Appearance:=xlScreen, Format:=xlPicture 'Step 6: Count slides and add new blank slide as next available slide number '(the number 12 represents the enumeration for a Blank Slide) SlideCount = PPPres.Slides.Count Set PPSlide = PPPres.Slides.Add(SlideCount + 1, 12) PPSlide.Select 'Step 7: Paste the picture and adjust its position PPSlide.Shapes.Paste.Select pp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True pp.ActiveWindow.Selection.ShapeRange.Top = 1 pp.ActiveWindow.Selection.ShapeRange.Left = 1 pp.ActiveWindow.Selection.ShapeRange.Width = 700 'Step 8: Add the title to the slide then move to next worksheet Next xlwksht 'Step 9: Memory Cleanup pp.Activate Set PPSlide = Nothing Set PPPres = Nothing Set pp = Nothing End Sub 

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

Похоже, что когда мы используем масштабирование и масштабирование, эта проблема исчезает, но в полноэкранном представлении она остается. Для меня это выглядит как проблема Microsoft Excel, но, возможно, кто-то может помочь …

Большое спасибо!

Попробуйте изменить шаг 5, чтобы вместо этого использовать формат растрового изображения:

 'Step 5: Copy the range as picture xlwksht.Range(MyRange).CopyPicture _ Appearance:=xlScreen, Format:=xlBitmap 
  • копирование диапазона в excel-склеивании в powerpoint
  • Ошибка вставки диаграммы Excel в Powerpoint VBA
  • Устранение неполадок, связанных с привязкой диаграмм в PowerPoint через VBA
  • Ошибка Excel VBA 467 при попытке открыть презентацию PowerPoint
  • Как скопировать данные из диаграмм Powerpoint в Excel
  • Как выбрать, какую PowerPoint редактировать в Excel VBA?
  • Как обновить данные через VBA в Power Point?
  • Ошибка 451 при ссылке на презентации и слайды PowerPoint
  • Powerpoint: несколько диаграмм, связанных с одним файлом. Измените все ссылки сразу.
  • Обновление информации в презентации PowerPoint из книги Excel с использованием VBA
  • OLEFormat (неизвестный член): неверный запрос в PowerPoint
  • Давайте будем гением компьютера.