2017-12-26 6 views

答えて

1

画像のアスペクト比が、入力するセルと同じアスペクト比である場合、またはアスペクト比が一致しない場合に画像が歪んでも構わない場合は、画像をセルに入力します。

Sub TestIt() 

    Dim oTbl As Table 
    Set oTbl = ActivePresentation.Slides(1).Shapes(3).Table 
    Call FillCellWithPicture(oTbl, 4, 2, "c:\temp\picture.jpg") 

End Sub 

Sub FillCellWithPicture(oTable As Table, lCol As Long, lRow As Long, sPicture As String) 
    oTable.Cell(lRow, lCol).Shape.Fill.UserPicture (sPicture) 
End Sub 
+0

興味深いことに、リボンのコマンドを使用してテーブルセルに画像を挿入する方法はありません。 –

+0

それはそこにあります、それは直感的に分かりやすいものではありません。表のセルを右クリックし、ポップアップメニューから「書式の書式設定」を選択するか、セル内をクリックして同じ「ホーム」タブを使用します。図面グループ|シェイプの塗りつぶしコマンドは、通常はリボンの図形に使用します。私たちはStackOverflowに入っていますので、もともとは「POVでこれを行う方法」から答えました。 –

関連する問題