Word2010のVBAで作成するオートシェイプに文字を入力し、その文字に文字の効果を付けたいです。
付けたい効果は「ワードアートのスタイル」の「文字の効果」内にある「変形」の「四角」です。
Sub 図形()
Dim 丸 As Shape
Set 丸 = ActiveDocument.Shapes.AddShape(msoShapeOval, 1, 1, 60, 60)
丸.Select
丸.TextFrame.TextRange = "文字"
'この部分です。Excelではこれで出来たのですがWordだと書き方が違うのでしょうか？
Selection.ShapeRange.TextEffect.PresetShape = msoTextEffectShapePlainText
End Sub
よろしくお願いいたします。
Excel2010,マクロを使用して画像挿入をした時の画像が他のPC上で見れないです。どなたか助けてくださいませんか。
Excel2010,マクロを使用した画像挿入した時の画像が他のPCへ送った時に見れませんでした。
原因は画像がリンク付けさせているから他のPCだと見えなくなっているんだと思うんですが……
マクロに関しては初心者なので教えてくださる方がいらっしゃると助かります。
過去の類似した質問はだいたい見ましたがわかりませんでした。
解決したい点は
・Excelに画像挿入するときにリンク先から表示するのではなく、画像自体をExcelへ保存して
別のサーバー上で他の方が画像を見ることができるようにする
以上になります。
仕事上画像を1つのシートあたり1000枚以上必要なのでマクロが必須です。
どなたか助言をいただけることはできないでしょうか。
よろしくお願いします。
※今使用しているマクロは下記のようになります。
すいません。これも他の方のマクロを少しいじったものです。
このどこかに問題点があると思うのですが…
Sub 複数画像挿入_サイズ変更()
Dim a As Range
Dim cc As Range
Dim W As Single
Dim H As Single
Dim mx As Long
Dim fi As Long
Dim i As Long
Dim pkfile
Const myHeight = 40 '行の高さ。0-409を指定。写真のサイズがこれで調整される。
Const myWidth = 20 '列の幅。0 - 255を指定。
On Error GoTo extLine
With Application
Set a = .InputBox("画像挿入するセル選択" & vbLf & _
"複数選択可", _
"複数画像の一括挿入（セル選択）", _
Selection.Address, _
Type:=8)
pkfile = .GetOpenFilename("すべての図" & _
"(*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;" & _
"*.jpe;*.png;*.bmp;*.gif)," & _
"*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;" & _
"*.jpe;*.png;*.bmp;*.gif", 2, _
"挿入する図の選択（複数選択可）", , True)
If Not IsArray(pkfile) Then
MsgBox "ファイルが指定されていません", , _
"複数画像の一括挿入"
GoTo extLine
End If
H = .InputBox("タテ", Type:=1)
W = .InputBox("ヨコ", Type:=1)
.ScreenUpdating = False
End With
mx = UBound(pkfile)
fi = 1
For Each cc In a
If cc.Address = cc.MergeArea.Item(1).Address Then
Call picIns(cc, pkfile(fi), W, H)
fi = fi + 1
If fi > mx Then
Set cc = Nothing
Exit For
End If
End If
Next
For i = fi To mx
Set a = a(a.Rows.Count, 1).Offset(1)
Call picIns(a, pkfile(i), W, H)
Next
extLine:
Set a = Nothing
Application.ScreenUpdating = False
With Err()
If .Number <> 0 Then MsgBox .Number & ":" & .Description
End With
End Sub
Sub picIns(ByVal r As Range, _
ByVal s As String, _
ByVal W As Single, _
ByVal H As Single)
With ActiveSheet.Pictures.Insert(s).ShapeRange
If (W > 0) And (H > 0) Then
.LockAspectRatio = msoFalse
.Height = H
.Width = W
ElseIf W > 0 Then
.Width = W
ElseIf H > 0 Then
.Height = H
End If
.Left = r.Left
.Top = r.Top
End With
End Sub
Excel2010,マクロを使用して画像挿入をした時の画像が他のPC上で見れないです。どなたか助けてくださいませんか。
Excel2010,マクロを使用した画像挿入した時の画像が他のPCへ送った時に見れませんでした。
原因は画像がリンク付けさせているから他のPCだと見えなくなっているんだと思うんですが……
マクロに関しては初心者なので教えてくださる方がいらっしゃると助かります。
過去の類似した質問はだいたい見ましたがわかりませんでした。
解決したい点は
・Excelに画像挿入するときにリンク先から表示するのではなく、画像自体をExcelへ保存して
別のサーバー上で他の方が画像を見ることができるようにする
以上になります。
仕事上画像を1つのシートあたり1000枚以上必要なのでマクロが必須です。
どなたか助言をいただけることはできないでしょうか。
よろしくお願いします。
※今使用しているマクロは下記のようになります。
すいません。これも他の方のマクロを少しいじったものです。
このどこかに問題点があると思うのですが…
Sub 複数画像挿入_サイズ変更()
Dim a As Range
Dim cc As Range
Dim W As Single
Dim H As Single
Dim mx As Long
Dim fi As Long
Dim i As Long
Dim pkfile
Const myHeight = 40 '行の高さ。0-409を指定。写真のサイズがこれで調整される。
Const myWidth = 20 '列の幅。0 - 255を指定。
On Error GoTo extLine
With Application
Set a = .InputBox("画像挿入するセル選択" & vbLf & _
"複数選択可", _
"複数画像の一括挿入（セル選択）", _
Selection.Address, _
Type:=8)
pkfile = .GetOpenFilename("すべての図" & _
"(*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;" & _
"*.jpe;*.png;*.bmp;*.gif)," & _
"*.emf;*.wmf;*.jpg;*.jpeg;*.jfif;" & _
"*.jpe;*.png;*.bmp;*.gif", 2, _
"挿入する図の選択（複数選択可）", , True)
If Not IsArray(pkfile) Then
MsgBox "ファイルが指定されていません", , _
"複数画像の一括挿入"
GoTo extLine
End If
H = .InputBox("タテ", Type:=1)
W = .InputBox("ヨコ", Type:=1)
.ScreenUpdating = False
End With
mx = UBound(pkfile)
fi = 1
For Each cc In a
If cc.Address = cc.MergeArea.Item(1).Address Then
Call picIns(cc, pkfile(fi), W, H)
fi = fi + 1
If fi > mx Then
Set cc = Nothing
Exit For
End If
End If
Next
For i = fi To mx
Set a = a(a.Rows.Count, 1).Offset(1)
Call picIns(a, pkfile(i), W, H)
Next
extLine:
Set a = Nothing
Application.ScreenUpdating = False
With Err()
If .Number <> 0 Then MsgBox .Number & ":" & .Description
End With
End Sub
Sub picIns(ByVal r As Range, _
ByVal s As String, _
ByVal W As Single, _
ByVal H As Single)
With ActiveSheet.Pictures.Insert(s).ShapeRange
If (W > 0) And (H > 0) Then
.LockAspectRatio = msoFalse
.Height = H
.Width = W
ElseIf W > 0 Then
.Width = W
ElseIf H > 0 Then
.Height = H
End If
.Left = r.Left
.Top = r.Top
End With
End Sub
Windows 7 + Excel2010において、セル範囲A2:C5を選択し、マウスの左ボタンを押したままマウスのホイールを回転させても範囲が縦に拡大しません。別のPCでWindows XP + Excel2000 ならできるのは確認済です。
この辺りの知識をお持ちの方がおりましたら、なぜできないか、また、できるようにする手がないか、教えてください。
ちなみにWord2010、エクスプローラーでのファイル選択では左ボタンを押しながらのホイール回転でスクロールできます。
