はじめまして。
EXCEL2007を使っているVBA初心者です。
現在セル入力した内容からPOPをまとめて印刷するワークシートを作成しています。
ワードアートのフォントをVBAで変更させたいのですが上手くいきません・・・
英数字でセル入力したときのみ、フォント変更されているようですが、全角文字をセルに入力したときワードアートに元々設定されているフォントで表示されてしまいます。
色々試したのですが、駄目でした(完璧に挫折です)
以下処理のイメージです。
セル A1に ”フォント変更したい” を入力。
セルA1のフォントを”HGP創英角ゴシックUB”に変更
マクロ実行 → ワードアートに 「フォント変更したい」 の文字を HGP創英角ゴシックUBのフォントで表示 させたいのですが・・・
Sheets(1).Shapes("WordArt1").Select
FT = Sheets("LIST").Cells(1,1).Font.Name 'フォントネ-ム取り出し
Selection.Characters.Font.Name = FT 'フォントネームをワードアートにセット
このような記述です。
ご教授いただけると大変助かります。どうかよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
2010版マクロの記録をほんの少し修正しました
Dim FtNm As String
ActiveSheet.Shapes.Range(Array("Rectangle 2")).Select
' Sheets(1).Shapes("WordArt1").Select
'FtNm = "HGP教科書体" "HGP創英角ゴシックUB"
FtNm = ActiveCell.Text
' ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "ここに文字を入力", "+mn-lt", 54, _
msoTrue, msoFalse, 162.3877165354, 155.5470866142).Select
' Selection.ShapeRange.TextFrame2.TextRange.Font.Bold = msoFalse
With Selection.ShapeRange.TextFrame2.TextRange.Font
.NameComplexScript = FtNm
.NameFarEast = FtNm
.Name = FtNm
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 8).Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
セルに貼り付けるときは"HGP教科書体"ではなくHGP教科書体のようにしてください。
うまくいかなかったのはHGPやUBを手入力して半角全角が違っているか余分なスペースが入っているなどしているためだろうと思います。
ご教授ありがとうございました。
説明不足で申し訳ありません。
一枚のシートにワードアートを15個程度使用しております。ワードアートの操作性は悪く、セル入力した内容をそのままワードアートに反映させるマクロを組みました。A1セルを斜体にすると、ワードアートも斜体になるというように・・・文字色、背景色、斜体、太さ ここまでは普通に動きました。フォントのみ変更が出来ないのでこまった次第です。
教えていただいたコーディングは残念ながらフォントの変更はできませんでした。(エラーにならずVBAは動いていましたが・・・)
しかしEXCEL2010ではワードアートのようなSHAPEでもマクロ記録が出来る!そしてフォントの変更もできる!!これが解っただけでも大収穫です。貴重なお時間をありがとうございました。
EXCEL2010で挑戦してみたいと思います
No.2
- 回答日時:
ここに質問する前に、挿入ー図ーワードアートーフォント種類指定などの操作をして、マクロの記録を取り、
どういうコードになるかやってみましたか。初心者はマクロの記録を活用しないと。
Sub Macro4()
ActiveSheet.Shapes.AddTextEffect(msoTextEffect2, "東京都", "HG行書体", 36#, _
msoFalse, msoFalse, 402.75, 244.5).Select
End Sub
のようになった。
この"HG行書体"のところにセルにフォントの種類の文字列をまず変数に入れて、その変数を持ってきてセットすれば仕舞い。
FT = Sheets("LIST").Cells(1,1).Font.Name だと一旦セルの文字にフォント種類を設定してと、間接的になっているが
好みなら仕様が無いが、好みのものフォント種類を入力規則のリストで数種類をセットして、その中から1つを選ぶほうが判りやすいのでは。
フォントサイズも同じ。
ただワードアートが2箇所以上あって、フォント種類などを別のアートと変えたいときはこまるよね。
この程度(操作でも簡単)のことでVBAを使うのは、初心者の勉強のためならやむをえないが、意味が無いのでは。
(もっと別に基礎的なことで勉強することがあるように思うよ)
ご教授頂きありがとうございます。
お察しの通り、EXCEL2007VBAには、ワードアートの様なSHAPEをマクロ記録することが出来ないんです(涙・・・そのような仕様だと聞いております)
説明不足で申し訳ありません。
一枚の用紙にワードアートを15個程度使っております。ワードアートの操作性は悪く、エクセルのセルに入力した内容に従ってワードアートに文字を送り、印刷・・・というようなマクロを組みました。
セル内容の文字色や、斜体、太字・・・と ワードアートに反映させ、ここまでは普通に動いたのですが、フォント変更のみどうにもならず困った次第です。
EXCEL2010ではSHAPE関連でもきちんとマクロ記録がされるんですね!大収穫です。
ありがとうございました。 教えていただいたコーデイングを参考にさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(インターネット接続・インフラ) Webサイトのフォント・級数変更について 1 2022/10/18 18:08
- Excel(エクセル) [入力規則]のリストボックス内の“不揃いの林檎たち” 3 2022/09/15 18:32
- Word(ワード) ワードでフォントを選ぶとき、一覧からではなく検索等できないでしょうか? 2 2022/10/22 17:52
- Word(ワード) ワードフォント 一括置換の方法 4 2022/12/31 00:27
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- 政治 私の発明した「二階建て漢字」は使えるでしょうか? 3 2023/02/08 16:40
- Excel(エクセル) 条件付き書式でフォント色を赤に設定しましたが、 2 2023/07/29 14:17
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Word(ワード) ワードを起動したとき、デフォルトで”HGPゴシックE”にしたいのです。 1 2023/03/01 00:57
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
メールでハングル文字を打つには
-
ダガーの入力の仕方
-
エクセルのワードアートのフォ...
-
ペイントの不思議な動き
-
アリス→ァㇼㇲ のような "捨て...
-
文字がMS明朝になってしまいます
-
英文フォントで単位を入力(win...
-
キーボードのキー右下にある文...
-
エクセルに貼付けたURLが青文字...
-
「芦」の字が変換できません
-
ハイフンの入力の仕方が分かり...
-
追加入力の文字だけ色を変えた...
-
エクセルで挿入した画像を背面...
-
アンダーバーの入力方法
-
カシオ KLD-300 ”ウ”の濁点の...
-
キーボードからシフトキーを押...
-
PCで文字入力するときに表示さ...
-
カーソルの暴走
-
VBAで文字を反映させると255...
-
彼氏のスマホで「か」と打ったら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ダガーの入力の仕方
-
エクセルのワードアートのフォ...
-
英文フォントで単位を入力(win...
-
文字がMS明朝になってしまいます
-
オープンオフィスのワード機能...
-
ディズニーフォントとミッキー...
-
Jpegの写真に文字を入れる方法。
-
メールでハングル文字を打つには
-
リットルの文字
-
リットル、リッポーメートル等...
-
アリス→ァㇼㇲ のような "捨て...
-
英字小文字のエル(l)と数字...
-
英数字用フォントでギリシア文...
-
Excel上における発音記号の入力
-
チェックボックスの大きさを変...
-
ワードの原稿用紙で。」を一つ...
-
Excel2010 セル内の文字色を一...
-
ペイントの不思議な動き
-
イラストレーターでイタリック...
-
ワード2000でフォントを20にし...
おすすめ情報