HOME > ソスソスソスソスソスeソスNソスjソスbソスN > Excel VBA > > ソス鞫懶ソスtソス@ソスCソスソスソスソス}ソスソスソスソスソスソス

ソス鞫懶ソスtソス@ソスCソスソスソスソス}ソスソスソスソスソスソスbExcel VBA

ソス}ソス`ソスソスソスソスヨ連ソスフテソスNソスjソスbソスN

ソス鞫懶ソスtソス@ソスCソスソスソスソス}ソスソスソスソスソスソス

(Excel 2000/2002/2003/2007/2010/2013/2016)

ソスソスソスソスソスフ画像ソスtソス@ソスCソスソスソスソスソスソス}ソスソスソス成ソスソスソスワゑソスソスB

ソス\ソスソス  Object.AddPicture(FileName, LinkToFile, SaveWithDocument, Left,
			Top, Width, Height)
ソスン定項ソスソスソスソスソスe
ObjectShapesソスRソスソスソスNソスVソスソスソスソスソスIソスuソスWソスFソスNソスg [ソスネ暦ソスソスsソスソス]
FileNameソス}ソスソスソスソスソスソス鞫懶ソスtソス@ソスCソスソスソスソスソスソスソスpソスXソスtソスソスソスナ指ソスソス [ソスネ暦ソスソスsソスソス]
LinkToFileTrueソスナ鯉ソスソスフフソス@ソスCソスソスソスニのソスソスソスソスNソスソスン抵ソスAFalseソスナ独暦ソスソスソスソスソスソス鞫 [ソスネ暦ソスソスsソスソス]
SaveWithDocumentTrueソスナゑソスExcelソスtソス@ソスCソスソスソスニとゑソスソスノ保托ソスソスAFalseソスナはソスソスソスソスNソスソスだゑソスソスソスロ托ソス [ソスネ暦ソスソスsソスソス]
Leftソス}ソスソスソスソスソスソス鞫懶ソスフ搾ソスソス[ソスハ置ソスソスソスwソスソス [ソスネ暦ソスソスsソスソス]
Topソス}ソスソスソスソスソスソス鞫懶ソスフ擾ソス[ソスハ置ソスソスソスwソスソス [ソスネ暦ソスソスsソスソス]
Widthソス}ソスソスソスソスソスソス鞫懶ソスフ包ソスソスソスソスwソスソス [ソスネ暦ソスソスsソスソス]
Heightソス}ソスソスソスソスソスソス鞫懶ソスフ搾ソスソスソスソスソスソスwソスソス [ソスネ暦ソスソスsソスソス]

ソスソスAddPictureソスソスソス\ソスbソスhソスナ画像ソスソス\ソスソスツゑソスソスソス

ソスソスソスフサソスソスソスvソスソス1ソスヘ画像ソスソスソスソスソスソスソスNソス\ソスソスtソスソスソスソスソスワゑソスソスB

ソスソスソスTソスソスソスvソスソス1ソスソス

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

ソスソスソス|ソスCソスソスソスgソスソス

ソスソスソスソス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

ソスソスソスTソスソスソスvソスソス2ソスソス

Sub AddPictureSamp2()
    Dim myFileName As String
    
    myFileName = ActiveWorkbook.Path & "\mogtan.gif"
    
    '--(1) ソスIソスソスソスハ置ソスノ画像ソスソス}ソスソス
    ActiveSheet.Pictures.Insert Filename:=myFileName
End Sub

ソスソスソスソスソスソス1ソスソス

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

ソスソスソスソスソスソス2ソスソス

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ソスソス

ソスソスソス|ソスCソスソスソスgソスソス

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