ソス鞫懶ソスtソス@ソスCソスソスソスソス}ソスソスソスソスソスソスbExcel VBA |
ソスソスソスソスソスフ画像ソスtソス@ソスCソスソスソスソスソスソス}ソスソスソス成ソスソスソスワゑソスソスB
ソス\ソスソス Object.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)
ソスン定項ソスソス | ソスソスソスe |
---|---|
Object | ShapesソスRソスソスソスNソスVソスソスソスソスソスIソスuソスWソスFソスNソスg [ソスネ暦ソスソスsソスソス] |
FileName | ソス}ソスソスソスソスソスソス鞫懶ソスtソス@ソスCソスソスソスソスソスソスソスpソスXソスtソスソスソスナ指ソスソス [ソスネ暦ソスソスsソスソス] |
LinkToFile | Trueソスナ鯉ソスソスフフソス@ソスCソスソスソスニのソスソスソスソスNソスソスン抵ソスAFalseソスナ独暦ソスソスソスソスソスソス鞫 [ソスネ暦ソスソスsソスソス] |
SaveWithDocument | TrueソスナゑソスExcelソスtソス@ソスCソスソスソスニとゑソスソスノ保托ソスソスAFalseソスナはソスソスソスソスNソスソスだゑソスソスソスロ托ソス [ソスネ暦ソスソスsソスソス] |
Left | ソス}ソスソスソスソスソスソス鞫懶ソスフ搾ソスソス[ソスハ置ソスソスソスwソスソス [ソスネ暦ソスソスsソスソス] |
Top | ソス}ソスソスソスソスソスソス鞫懶ソスフ擾ソス[ソスハ置ソスソスソスwソスソス [ソスネ暦ソスソスsソスソス] |
Width | ソス}ソスソスソスソスソスソス鞫懶ソスフ包ソスソスソスソスwソスソス [ソスネ暦ソスソスsソスソス] |
Height | ソス}ソスソスソスソスソスソス鞫懶ソスフ搾ソスソスソスソスソスソスwソスソス [ソスネ暦ソスソスsソスソス] |
ソスソスソスフサソスソスソスvソスソス1ソスヘ画像ソスソスソスソスソスソスソスNソス\ソスソスtソスソスソスソスソスワゑソスソスB
Sub AddPictureSampLinkPaste()
Dim myFileName As String
Dim myShape As Shape
myFileName = ActiveWorkbook.Path & "\mogtan.gif"
'--(1) ソスIソスソスソスハ置ソスノ画像ソスtソス@ソスCソスソスソスソス}ソスソスソスソスソスAソスマ撰ソスmyShapeソスノ格ソス[
Set myShape = ActiveSheet.Shapes.AddPicture( _
Filename:=myFileName, _
LinkToFile:=True, _
SaveWithDocument:=False, _
Left:=Selection.Left, _
Top:=Selection.Top, _
Width:=0, _
Height:=0)
'--(2) ソス}ソスソスソスソスソスソスソス鞫懶ソスノ対ゑソスソスト鯉ソスソス鞫懶ソスニ難ソスソスソスソスソスソスソスソスEソスソスソスノゑソスソスソス
With myShape
.ScaleHeight 1, msoTrue
.ScaleWidth 1, msoTrue
End With
End Sub
(1)ソスナ画像ソスtソス@ソスCソスソスソスソス}ソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスLinkToFileソスソスTrueソスASaveWithDocumentソスソスFalseソスソスソスwソス閧オソストゑソスソス驍スソス゚、ソス鞫懶ソスヨのソスソスソスソスNソスソスだゑソスソスソスExcelソスtソス@ソスCソスソスソスノ保托ソスソスソスソスソスワゑソスソスB
ソスtソス@ソスCソスソスソスTソスCソスYソスソス蛯ォソスソスソスソスソスソスソスソスソスネゑソスソス鼾ソスヘ、ソスソスソスフようソスノ指ソス閧オソストゑソスソスソスソスソスソスソスソスB
ソス鞫懶ソスソスソスソスソスソスソスNソス\ソスソスtソスソスソスソスソスソスソス鼾ソスAソスソスソスフ画像ソスtソス@ソスCソスソスソスソスソスQソスニでゑソスソスネゑソスソスツ具ソスソスソスソスナ画像ソスソス}ソスソスソスソスソスソスソスtソス@ソスCソスソスソスソスソスJソスソスソスニ、ソス鞫懶ソスヘアソスCソスRソスソスソスナ表ソスソスソスソスソスソストゑソスソスワゑソスソスワゑソスソスB
ソス鞫懶ソスソスExcelソスtソス@ソスCソスソスソスニとゑソスソスノ保托ソスソスソスソスソスソスソスソス鼾ソスヘ、ソスソスソスソスLinkToFileソスソスFalseソスソスン定しソストゑソスソスソスソスソスソスソスソスB
ソスソスソスフ場合ソスAソスソスソスソスSaveWithDocumentソスソスTrueソスノゑソスソスソスKソスvソスソスソスソスソスソスワゑソスソスB
ソスソスソスソスWidth/Heightソスヘ画像ソスフ大きソスソスソスソスソスwソス閧オソスワゑソスソスソスソスAソスソスソスフ画像ソスtソス@ソスCソスソスソスフ大きソスソスソスソスソス|ソスCソスソスソスgソスPソスハで計ソスソスソスソスソストゑソスソスソスRソス[ソスfソスBソスソスソスOソスソスソスソスAソスニゑソスソスソスソスソスソスニは鯉ソスソスソスソスIソスナはゑソスソスソスワゑソスソスソスB
ソスソスソスソスソスフ茨ソスソスソスソスヘ省暦ソスソスナゑソスソスネゑソスソスフで、ソスソスソスソスソスソスソスソスKソスソスソスネ値ソスiソスソスソスソスソスナゑソス0ソス|ソスCソスソスソスgソスjソスナ画像ソスソスソス成ソスソスソスソスソスソスノ、(2)ソスフようソスソスScaleHeight/ScaleWidthソスソスソス\ソスbソスhソスナ、ソスソスソス鞫懶ソスtソス@ソスCソスソスソスフ大きソスソスソス復鯉ソスソスソスソスソスソスソスフゑソスソス謔「ソスナゑソスソス蛯、ソスB
ソスソスPictures.Insertソスソスソス\ソスbソスhソスナ画像ソスソス\ソスソスツゑソスソスソス
Excel97ソスネ降ソスヘ隠ソスソスソスIソスuソスWソスFソスNソスgソスニなゑソスソストゑソスソスソスPictureソスIソスuソスWソスFソスNソスgソスフコソスソスソスNソスVソスソスソスソスソスノ対ゑソスソスソスInsertソスソスソス\ソスbソスhソスソスソスgソスpソスソスソスソスホ、ソスTソスソスソスvソスソス2ソスフようソスネ記ソスqソスナ難ソスソスlソスフゑソスソスニゑソスソスナゑソスソスワゑソスソスB
Sub AddPictureSamp2()
Dim myFileName As String
myFileName = ActiveWorkbook.Path & "\mogtan.gif"
'--(1) ソスIソスソスソスハ置ソスノ画像ソスソス}ソスソス
ActiveSheet.Pictures.Insert Filename:=myFileName
End Sub
Excel 2007ソスナは画像ソスフ挿ソスソスソスハ置ソスソスソスソスソスフバソス[ソスWソスソスソスソスソスニ異なゑソスワゑソスソスB
Excel 2007ソスナ選ソスソスソスZソスソスソスソスソスソスソスソス[ソスニゑソスソスト画像ソスソス}ソスソスソスソスソスソスノは、ソスTソスソスソスvソスソス2ソスソス(1)ソスフコソス[ソスhソスソスソスソスソスLソスフようソスノゑソスソストゑソスソスソスソスソスソスソスソスB
With ActiveSheet.Pictures.Insert(Filename:=myFileName)
.Top = ActiveCell.Top
.Left = ActiveCell.Left
End With
Pictures.Insertソスソスソス\ソスbソスhソスソスソスgソスソスソスソスソスソスソス@ソスナは、ソス鞫懶ソスフソスソスソスソスNソスソスだゑソスソスソスロ托ソスソスソスソスソスAソスワゑソスソスヘ画像ソスニ一緒ソスノ保托ソスソスソスソスソスニゑソスソスソスソスソスソスwソスソスヘでゑソスソスワゑソスソスソスB
ソスソスソスソスノ、Excel 2007ソスワでは画像ソスソスソスニ一緒ソスノ保托ソスソスソスソスソストゑソスソスソスソスフに対ゑソスソスAExcel 2010ソスネ降ソスナはソスソスソスソスNソス\ソスソスtソスソスソスノ仕ソスlソスソスソスマゑソスソスネど、Excelソスフバソス[ソスWソスソスソスソスソスノゑソスソスソスト画像ソスフ保托ソスソスソスソス@ソスソスソスルなゑソスワゑソスソスB
ソス鞫懶ソスフ保托ソスソス齒奇ソスソスtソス@ソスCソスソスソスTソスCソスYソスネど、ソスPソス[ソスXソスノ会ソスソスソスソスト使ソスソスソスソスソスソスソストゑソスソスソスソスソスソスソスソスB
ソスTソスソスソスvソスソス2ソスソス(1)ソスフコソス[ソスhソスソスソスソスソスLソスフようソスノゑソスソスソスニ、Excel 2010ソスネ降ソスナ画像ソスフソスソスソスソスNソスリゑソスソスソスソスソスソスソスソス驍アソスニゑソスソスナゑソスソスワゑソスソスB
With ActiveSheet.Pictures.Insert(Filename:=myFileName)
.CopyPicture 'ソスNソスソスソスbソスvソス{ソス[ソスhソスノコソスsソス[
.Delete 'ソス鞫懶ソスソスソスソスソスソスソスソスソスソス除
End With
ActiveSheet.Paste 'ソス鞫懶ソスソス\ソスソスtソスソス
Microsoft Officeソスナ用ソスモゑソスソスソストゑソスソスソスNソスソスソスbソスvソスAソス[ソスgソスソスソスA1ソスソス1ソスツは独暦ソスソスソスソスソスソス鞫懶ソスtソス@ソスCソスソス(WMFソスtソス@ソスCソスソス)ソスナゑソスソスBソスNソスソスソスbソスvソスAソス[ソスgソス文擾ソスソスノ挿ソスソスソスソスソスソスロにゑソスソスAソスソスソスソスソスフソスソス\ソスbソスhソスソスpソスモゑソスソスワゑソスソスB