teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

1

追記

2016/07/07 01:26

投稿

jawa
jawa

スコア3020

answer CHANGED
@@ -13,4 +13,34 @@
13
13
  End Sub
14
14
  ```
15
15
 
16
- mac/excel2016とは環境が違うので何とも言えませんが、お試しください。
16
+ mac/excel2016とは環境が違うので何とも言えませんが、お試しください。
17
+
18
+
19
+ 追記
20
+ ---
21
+ 追記の内容で、画像サイズがセルの大きさになってしまうのは、貼り付ける際に
22
+ ```
23
+ With Cells(i, 2)
24
+ '(中略)
25
+ Width:=.Width, Height:=.Height)
26
+ End With
27
+ ```
28
+ としているからだと思います。
29
+
30
+ 以下のように幅・高さを指定しないで貼り付けるとオリジナルサイズで貼り付くと思います。
31
+ ```
32
+ Sub test2()
33
+ 'セルからURLを取得する
34
+ Dim strURL As String
35
+ strURL = ActiveSheet.Cells(i, 1)
36
+ 'URLからイメージを作成する
37
+ With Cells(i, 2)
38
+ Set objShape = ActiveSheet.Shapes.AddPicture( _
39
+ Filename:=strURL, LinkToFile:=False, _
40
+ SaveWithDocument:=True, Left:=.Left, _
41
+ Top:=.Top, Width:=0, Height:=0)
42
+ objShape.ScaleHeight 1, msoTrue
43
+ objShape.ScaleWidth 1, msoTrue
44
+ End With
45
+ End Sub
46
+ ```