が整数文字列またはダブル

Question

を変換できません。これは、コードです：

Sub imagesize() 
Dim selection As Range 
Dim rng As Range 
Dim objShell As Object 
Dim objFolder As Object 
Dim objFile As Object 
Dim dimen As String 
Dim xmm As Double 
Dim ymm As Integer 
Set objShell = CreateObject("Shell.Application") 
Set selection = Application.selection 

For Each rng In selection.Cells 
    Set objFolder = objShell.Namespace("C:\Users\Desktop\") 
    Set objFile = objFolder.ParseName("try.tif") 
    dimen = objFile.ExtendedProperty("Dimensions") 
    xmm = Val(Left(dimen, InStr(dimen, "x") - 2)) 
    Cells(rng.Row, rng.Column).Value = xmm 
Next rng 

End Subの

私はすでに絵の大きさを得るが、私は整数にその文字列を変換することはできません、 CIntでもValでも、数字だけが含まれています。私はここで何が欠けていますか？答えをありがとう。

Answer 1

コード

また

If dimen <> "" Then 
    dimen = Mid(dimen, 2, Len(dimen) - 2) 
    xmm = CDbl(Split(dimen, "x")(0)) 
    ymm = CDbl(Split(dimen, "x")(1)) 
End If 

以下でxmm = Val(Left(dimen, InStr(dimen, "x") - 2))

この行を交換し、あなただけのオリジナルの寸法で画像を挿入し、そこからの高さと幅を読み取ることができます。 https://stackoverflow.com/a/39151519/3961708