PHPにショートコードを埋め込んで実行させる。
<?php echo do_shortcode(‘[masterslider id=”1″]’)?>
（※[masterslider id=”1″]の部分は任意のショートコード）
Biz Calendarのスタイル変更（BizVektorの場合）
#eo_fullcalendar_1 table {
margin: 0;
border-collapse: collapse;
}
#eo_fullcalendar_1 .fc-widget-content table td {
border: 1px solid #e5e5e5;
padding: 3px!important;
}
セルを塗りつぶしや条件付き書式等で色付けしていて、印刷時に色が出ない場合
「ページレイアウト」タブ→「シートのオプション」詳細→「印刷」項目の「白黒印刷」のチェックをはずす
テキストエディタBracketsでタブ、スペースを表示する拡張機能を追加する方法です。
右の拡張機能のボタンを押して、検索ボックスに「全角空白・スペース・タブ表示」と入力。
インストールすれば使えます。
[eo_fullcalendar titleformatmonth=’Y M’]
日本IBM出身Dim attachment_file As String
attachment_file = “C:\Users\curio\Desktop\section#custom-section_h1_section-title.txt”
mITEM.Attachments.Add attachment_file
日本IBM出身画像が中央ぞろえされない場合がある。
<div style=”text-align:center;”> 画像 </div>
日本IBM出身オプション
詳細
コンテンツを貼り付けるときに[貼り付けオプション]ボタンを表示する
日本IBM出身将
異体字
日本IBM出身Sub send_mail()
Dim i, j As Integer
Dim oApp
Dim myNameSpace
Dim myFolder
‘Outlookの起動
On Error Resume Next
Set oApp = GetObject(, “Outlook.Application”)
If oApp Is Nothing Then
Set oApp = CreateObject(“Outlook.Application”)
Set myNameSpace = oApp.GetNamespace(“MAPI”)
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display
End If
On Error GoTo 0
oApp.ActiveWindow.WindowState = 2
‘以下はメールの新規作成
Dim mITEM ‘As Outlook.MailItem’
Set mITEM = oApp.CreateItem(0)
mITEM.BodyFormat = 2
mITEM.Display
mITEM.Subject = Worksheets(“Sheet1”).Cells(1, “a”).Value
mITEM.To = Worksheets(“Sheet1”).Cells(4, “i”).Value
mITEM.CC = Worksheets(“Sheet1”).Cells(4, “j”).Value
‘メールのコピー
Range(“A3”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Range(“A4”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Range(“A5”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Range(“A6”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘メールのコピー
Worksheets(“Sheet1”).Range(“A7”).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
‘Dim waitTime As Variant
‘waitTime = Now + TimeValue(“0:00:2”)
‘Application.Wait waitTime
‘個数を数える
i = 0
Do While Worksheets(“Sheet1”).Cells(i + 8, “a”).Value <> “”
i = i + 1
Loop
‘Debug.Print i
‘コピー
Worksheets(“Sheet1”).Range(Cells(8, “a”), Cells(8 + i – 1, “g”)).Select
Selection.Copy
‘貼り付け
mITEM.Display
With oApp.ActiveInspector
.WordEditor.Windows(1).Selection.Paste
End With
End Sub
日本IBM出身