| |
以下のソースで、画像を原寸に拡大（縮小）して、その画像をクリップボードに送って、画像データとして保存したいと思っています。
データオブジェクトのエクスポートでどうしてもエラーになります。
基本、あまり理解できていないので、それ以前の問題かもしれませんが、どなたか教えて頂けませんか？どうぞよろしくお願いします。
Dim wShape As Shape
Dim wPictureCount As Integer
Dim myW As Double, myH As Double, myRatio As Double
Dim oW As Double, oH As Double
Dim TempObject As MSForms.DataObject
Set TempObject = New MSForms.DataObject
wPictureCount = 0
For Each wShape In AWorksheet.Shapes
If wShape.Type = msoPicture Then
oW = wShape.Width
oH = wShape.Height
wShape.ScaleWidth 1, msoTrue
wShape.ScaleHeight 1, msoTrue
wShape.LockAspectRatio = msoTrue
myW = wShape.Width
myH = wShape.Height
myRatio = WorksheetFunction.Round(myW / oW * 100, 0)'拡大縮小率
MsgBox myRatio
wPictureCount = wPictureCount + 1
wShape.CopyPicture
TempObject.GetFromClipboard
TempObject.Export Filename:="C:\tpic\testABC.jpg"'ここがエラーになります。
Set TempObject = Nothing
End If
Next wShape
Images100Percent = wPictureCount
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
