Вопросы Теги

Импорт изображений в Excel с помощью VBA, а затем изменение местоположения файла и изображений больше не отображаются. [Дубликат]

Ваш код просто скремблирован. Ответ довольно прост.

Just go to **Build** --> **Clean Project**.

Это должно сделать трюк.

Я использую Android Studio 3.0.1 .

11
задан Cœur 30 April 2017 в 12:28
поделиться

2 ответа

вы можете использовать метод shape.addpicture 

activesheet.Shapes.AddPicture Filename:="C:\test\desert.jpg", linktofile:=msoFalse, _
            savewithdocument:=msoCTrue, Left:=0, Top:=0, Width:=100, Height:=100
18
ответ дан JosieP 18 August 2018 в 15:05
поделиться
  • 1
    Спасибо @JosieP! Это отлично работает. Теперь я пытаюсь назначить его объекту Shape, чтобы я мог внести некоторые корректировки. Я сделал Dim shpPic as Shape и Set shpPic = xlApp.activesheet.Shapes.AddPicture ..., и я получил ошибку несоответствия типа. Любая идея почему? – DasPete 14 June 2013 в 16:30
  • 2
    основанный на части xlApp, я думаю, вы автоматизируете из другого приложения - есть ли у этого приложения объекты Shape? если это используется dim shpPic as Excel.Shape – JosieP 14 June 2013 в 16:43
  • 3
    Привет @JosieP, да, я звоню из Access. Я не могу использовать Excel.Shape, потому что я не хочу иметь ссылку на библиотеку Excel, потому что у меня есть пользователи с большим количеством систем. Я объявил свой экземпляр excel следующим образом: Dim xlApp as Object Set xlApp = CreateObject("Excel.Application") Итак, я попробовал Dim shpPic = xlApp.Shape, и это дает мне «Пользовательский тип, не определенный»; ошибка. Есть идеи? – DasPete 14 June 2013 в 16:50
  • 4
    вы должны объявить как объект, если вы поздно связываете excel – JosieP 14 June 2013 в 16:51
  • 5
    no you Dim shpPic as Object, затем используйте set shpPic = xlapp.activesheet.shapes.addpicture... – JosieP 14 June 2013 в 17:08

Обратите внимание, что вы можете установить требуемые параметры Width и Height на -1, который затем поддерживает высоту и ширину исходного изображения! 

Activesheet.Shapes.AddPicture Filename:="C:\image.jpg", LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1

http://excelmatters.com / 2013/11/25 / default-picture-size-with-shapes-addpicture /

(Добавлен как другой ответ для увеличения видимости, поскольку я изо всех сил пытался справиться с этой проблемой на протяжении веков и гавани 't нашел это решение документированным где-либо еще.)

0
ответ дан Michael 18 August 2018 в 15:05
поделиться
Другие вопросы по тегам:

Похожие вопросы: