| |
soc さん、おはようございます。
>height=119.25
>width=86.25
>rotation=0#
>increment rotation=90#
>increment left 185#
>increment top 90#
>の位置・サイズにフォルダ「A030401」に入っている画像を選択して張りつけるという作業なのですが…。
これは、位置というよりも、画像の情報（大きさと角度）のようですけど？
ファイル名を指定して画像を読み込む方法
その１ GetOpenFilename を使う方法
Sub tempo1()
Dim Filt As String, Ifile As Variant
Dim Path2
'
Path2 = "D:\A030401"
If Dir(Path2, vbDirectory) <> "" Then _
ChDrive Path2: ChDir Path2
'
Filt = "Bmp (*.bmp),*.bmp,Emf (*.emf),*.emf,Gif (*.gif),*.gif,Jpg (*.jpg),*.jpg"
Ifile = Application.GetOpenFilename(Filt)
'
If Not Ifile = False Then
Application.ScreenUpdating = False
ActiveSheet.Pictures.Insert(Ifile).Select
With Selection
.Top = 0 '位置(A1セルの上端)
.Left = 0 '位置(A1セルの左端)
.Height = 119.25
.Width = 86.25
'.Rotation = 0# Pictureは回転できない？
End With
Application.ScreenUpdating = True
Else
MsgBox "キャンセル", vbExclamation
End If
ActiveCell.Activate '図形から離れる
End Sub
その２ 組み込みダイアログ（ピクチャ挿入）を使う方法
Sub tempo2()
Path2 = "D:\A030401"
If Dir(Path2, vbDirectory) <> "" Then _
ChDrive Path2: ChDir Path2
'
ActiveCell.Activate 'TypeName(Selection) = "Range"
Application.Dialogs(xlDialogInsertPicture).Show
If TypeName(Selection) = "Picture" Then
Application.ScreenUpdating = False
With Selection
.Top = 0
.Left = 0
.Height = 119.25
.Width = 86.25
'.Rotation = 0# Pictureは回転できない？
End With
Application.ScreenUpdating = True
Else
MsgBox "キャンセル", vbExclamation
End If
ActiveCell.Activate '図形から離れる
End Sub
こんな感じです。
|
|
- 03/4/8(火) 6:35 -
