回答編集履歴

1

typo修正

2015/04/19 07:27

投稿

htsign
htsign

スコア870

test CHANGED
@@ -40,7 +40,7 @@
40
40
 
41
41
  ```lang-vbscript
42
42
 
43
- Set shape = ActiveSheet.Shapes.AddPicture(Filename:=Environ("TEMP") & "\vbatemp" LinkToFile:=False, SaveWithDocument:=True, Left:=ActiveCell.Left + ActiveCell.With, Top:=ActiveCell.Top, Width:=0, Height:=0)
43
+ Set shape = ActiveSheet.Shapes.AddPicture(Filename:=Environ("TEMP") & "\vbatemp" LinkToFile:=False, SaveWithDocument:=True, Left:=ActiveCell.Left + ActiveCell.Width, Top:=ActiveCell.Top, Width:=0, Height:=0)
44
44
 
45
45
  ```
46
46